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Inhoud van dit nummer 


WordPerfect 4.1 11 

Al lang bekend van de MS-DOS PC’s, 
nu ook beschikbaar voor de Amiga: 
WordPerfect 4.1. De toekomst van de 
Amiga als professionele tekstverwer¬ 
ker lijkt hiermee verzekerd, al zitten er 
nog wel wat haken en ogen aan het 
gebruik van WordPerfect. 


Home Automation 15 

Automatisering van allerlei huishou¬ 
delijke apparaten met behulp van een 
huiscomputer staat nog steeds in de 
kinderschoenen. Luc Sala beschrijft 
de laatste ontwikkelingen op het ge¬ 
bied van Home Automationen voor¬ 
spelt een langzame commercialise¬ 
ring van apparatuur voor ‘besturing’ 
van het huis. 


Leerprogramma’s 7: 23 

In het zevende deel van de serie over 
leerprogramma’s behandelt Bob Mun¬ 
niksma De Abacus, een telraam dat 
ook op de computer toe te passen is. 


Commodore 386 50 

Een kort bericht over dit nieuwe 
parade paardje 


Amiga Software 52 

Vier nieuwe spellen voor de Amiga 
besproken door Henk Seppen. Hard- 
ball, Barbarian, Testdrive en Impact. 


Basis Basic 18 55 

Alweer het achttiende deel van de Ba- 
sic-cursus van Jan Bodzinga. 


Niet veel computershoppers wagen 
zich aan een voorraadje Amiga soft¬ 
ware. Dat komt helaas ook door het 
om zich heen grijpende Amiga-ko- 
pieercircuit, de illegale kopieerwoe- 
de steekt overal weer de kop op. Met 
als gevolg dat de importeurs en de¬ 
taillisten zich van de Amiga afkeren. 
Aackosoft uit Leiden, dat een aar¬ 
dige poging heeft gedaan om de 
Amiga markt op te gaan, heeft on¬ 
dertussen zelfs de poort gesloten en 
een mistige sterfhuisconstructie be¬ 
dacht met MS/Premium. 

Het gebrek aan Amiga software in de 
winkels is misschien een teken aan 
de wand, dat uiteindelijk niemand 
gebaat is bij ai dat gekopieer. 

Luc Sala 


Redactioneel 

Commodore sluit het jaar af met een 
serie bemoedigende aankondigin¬ 
gen. Niet alleen heeft men een snelle 
supermicro op basis van een 80386 
aangekondigd.'ook de PC 10 is in 
een heel nieuw en jeugdig jasje ge¬ 
stoken. Men is duidelijk serieus van 
plan het sterke marktaandeel in 
West Europa op de PC markt - in 
Duitsland is men de no. 1 PC ver¬ 
koper - te verdedigen. 

Ondertussen is ook de Amiga aan 
een opmars begonnen en we horen 
steeds meer verhalen over enthou¬ 
siaste Amiga clubs. Qua software 
zijn er wel voldoende titels, maar de 
verkrijgbaarheid is nog zeer matig. 


Oud van Goudriaan 64 

Rob Goudriaan behandelt weer een 
aantal spellen uit de oude doos: Trills 
and Tribulations, Quo Vadis, Booga- 
Boo, Jumpman en Boulderdash. 


Datahome software 65 

Het softwarehuis Datahome speciali¬ 
seert zich in het importeren en ontwik¬ 
kelen van professionele software voor 
de C-64/128 en de Amiga. Daaronder 
vallen o.a. databases, spreadsheets, 
tekstverwerking en pakketten voor 
facturering en aandelenbeheer. 


Software-overzicht ’87 69 

Wij hebben voor u alle belangrijke 
Amiga software-pakketten van het af¬ 
gelopen jaar bij elkaar gezet in een 
handig en informatief totaal-overzicht. 


Vaste Rubrieken: 


Datakolom 

8 

strip 

10 

Kleine advertenties 

50 

Basic Micro’s 

60 

Vragen van gebruikers 62 
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Ai sinds enige jaren schrijf ik ai mijn teksten met het teksverwerkings pakket WordPer¬ 
fect. Het programma is snel en bevat alle kwaliteiten die we van een tekstverwerker 
mogen verwachten. 


WordPerfect 4.1 op de AMIGA 


Uitgebreide degelijkheid 


G root waren dan ook de verwachtingen toen bekend was dat er voor de 
Amiga een WordPerfect zou worden uitgebracht. Maakt het pakket ook 
op deze computer zijn reputatie waar? Benut WordPerfect de geweldige gra¬ 
fische mogelijkheden van de Amiga? Op al deze vragen kan slechts een 
antwoord te vinden zijn door het programma uitgebreid te testen. 


Uitvoering 

Het pakket dat in Nederland op de 
markt wordt gebracht is een Engels¬ 
talige versie. Er is nog geen Neder¬ 
landse uitvoering te verkrijgen. Bij het 
uitpakken van het pakket valt direkt de 
degelijkheid van het geheel op. Het 
handboek bevat meer dan 600 pagi¬ 
na’s. Het is uitgevoerd in een stevige 
losbladige map. Vier diskettes vormen 
de komplete software en ook ontbre¬ 
ken de overlays en de referentiekaart 
niet. Zoals bij elk nieuw pakket moest 
eerst de handleiding uitvoerig worden 
bestudeerd. Dit is niet iets wat zo 
maar eventjes gebeurd is. Voor diege¬ 
ne die nog nooit met WordPerfect heb¬ 
ben gewerkt zijn er lessen opgeno¬ 
men. Zelfs een schijfje met de les¬ 
programma’s is er bij het pakket ge¬ 
leverd. Het is dan wel aan te raden de 
nodige tijd hieraan te besteden, dit 
komt later de werksnelheid alleen 
maar ten goede. Bij het bestuderen 
van de handleiding werd duidelijk dat 
het programma op de Amiga niet 
werkt zonder een tweede diskdrive of 
harddisk. Daar beide niet voorhanden 
waren moest er eerst een tweede dri¬ 
ve worden geregeld. 


Printers 

Wat direkt opvalt bij het opstarten van 
het programma is het ongelooflijk 
grote aantal printerdrivers dat aan¬ 
wezig is. 251 verschillende printer¬ 
drivers! Hier is de Amiga bezitter heel 
wat minder gewend. Een mogelijkheid 
die bij geen enkele tekstverwerker 
voor de Amiga aanwezig was is dat er 
meerdere printers uit een programma 
kunnen worden aangestuurd. Hierbij 



Schermafbeelding 
van WordPerfect 
op de Amiga 
met het Edit-menu 
‘opengetrokken’. 


maakt het niet uit of dit matrix of 
daisywheel printers zijn of dat er een 
sheetfeeder wordt gebruikt. Als u een 
tekst wilt gaan printen komt deze op 
een wachtlijst te staan. Hierdoor is het 
mogelijk door te gaan met bewerken 
en pas aan het eind alles te gaan 
uitprinten. Als er een aantal in de 
wacht staan is er bij de MS-Dos ver¬ 
sies één aan te wijzen welke eerst 
mag worden uitgeprint. Bij de Amiga 
versie is het mogelijk een voorkeur 
mee te geven. Hoe hoger het getal dat 
wordt gegeven aan een tekst des te 
eerder wordt deze uitgeprint. Als er 
veel teksten zijn om uit te printen is dit 
een ideale manier om bepaalde stuk¬ 
ken tekst meteen te laten printen, zo¬ 
dat er niet hoeft te worden gewacht tot 
alles is geprint. 

Bestandsmenu 

Via het bestandsmenu via F5 kan men 
bewerkingen op het bestand uit¬ 
voeren. Kopiëren, herbenoemen, wis¬ 


sen, printen en bekijken zonder de 
tekst te gaan bewerken. Zelfs kan een 
bestandenlijst worden doorlopen tot 
een bepaald woord of een zin in een 
bestand is gevonden. Omdat Word¬ 
Perfect (grotendeels) werkt met het 
WYSIWYG (What You See Is What 
You Get) principe zijn er op het 
scherm geen stuurcodes te zien. Door 
de Reveal Codes optie te kiezen 
wordt het scherm horizontaal in twee- 
en gedeeld. In het bovenste gedeelte 
staat de tekst normaal, in het onderste 
gedeelte zijn naast de tekst ook alle 
codes opgenomen. Iedere verande¬ 
ring, zowel boven als onder werkt di¬ 
rekt door op het andere gedeelte. 


Helpfunkties 

Een van de verschillen met het PC 
pakket is de help toets. De PC kent in 
tegenstelling tot de Amiga niet de 
helptoets. WordPerfect gebruikt deze 
toets bij het Amiga pakket, dus de F3 
toets komt vrij. Via de helptoets komt 
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u in de helpfunctie. Deze is zeer uitge¬ 
breid. Alle functies van de verschillen¬ 
de toetsen worden op het scherm ge¬ 
toond. Na het indrukken van de help¬ 
toets is het voldoende de eerste (En¬ 
gelse) letter van de funktie die men 
zoekt in te drukken. Op het beeld¬ 
scherm verschijnen dan alle moge¬ 
lijkheden. De F3 toets, die dus niet 
meer werd benut, is vrijgekomen voor 
een unieke funktie: Het indrukken van 
deze toets geeft een cursiefschrift. 
Het werken met de pull-down menu’s 
werkt prettig maar minder snel. Het 
pakket gebruikt ongeveer dezelfde 
toetsen als bij een PC, voor een PC 
gebruiker is de overstap dus eenvou¬ 
dig te maken. 

Veiligheidskopie 

Als u het pakket voor de eerste maal 
gaat gebruiken moet het geïnstalleerd 
worden. Hier moet worden aan¬ 
gegeven waar het programma de 
diverse onderdelen kan vinden. Zelfs 
is hier aan te geven of u een veilig¬ 
heidskopie wilt gaan maken. Hiervoor 
geeft u aan na welk tijdsbestek er een 
backup van uw tekst moet worden ge¬ 
maakt. Ik ben zelf al verschillende ma¬ 
len een artikel kwijtgeraakt (ja ik weet 
het een ...) door het per ongeluk in¬ 
drukken van een verkeerde toets. Na¬ 
dat deze tijd eenmaal is ingegeven 
wordt er regelmatig een backup van 
de tekst gemaakt, zodat er bij plotsel¬ 
inge stroomuitval niet erg veel verlo¬ 
ren kan gaan. Het systeem werkt met 
BK bestanden, iets wat we van vroe¬ 
gere tekstverwerkers kenden als BAK 
bestanden. Het enige nadeel van de¬ 
ze optie is dat er tijdens het wegschrij¬ 
ven geen mogelijkheid meer is voor 
het invoeren zodat het werk even stil 
moet liggen. 

De funktietoetsen hebben in dit pakket 
diverse funkties. Elke funktietoets 
heeft vier funkties die door het indruk¬ 
ken in combinatie met de CTRL, 
SHIFT, Alt of alleen de functie toets 
worden opgeroepen. Het een en 
ander wordt verduidelijkt via het bij¬ 
geleverde sjabloon. Onderaan de pa¬ 
gina bevindt zich op het scherm een 
statusregel waarop wordt aangege¬ 
ven waar u zich in het document be¬ 
vindt, de pagina, de regel en de cur- 
sorpositie. Ook staat hier aangegeven 
of de tekst overschreven of tussen¬ 
gevoegd wordt. Deze regel wordt ook 
gebruikt voor mededelingen en/of 
vragen van WordPerfect. 


Spelling 

Het is onmogelijk alle mogelijkheden 
die WordPerfect heeft hier te be¬ 


schrijven. Naast de normale tekstver- 
werkings mogelijkheden heeft het pro¬ 
gramma o.a. ook nog een spellings¬ 
controle. Na het indrukken van CTRL- 
F2 of door met de muis het bijbeho¬ 
rende menu aan te tikken, wordt dit 
deel van het programma geactiveerd. 
Het programma beschikt over een 
woordenschat van meer dan 100.000 
woorden. Helaas is dit woordenboek 
alleen in de Engelstalige uitvoering le¬ 
verbaar. Hopelijk is het een kwestie 
van tijd tot er een Nederlandstalige 
versie van op de markt komt.De 
spellingskontrole vindt achteraf plaats 
dus niet bij het intypen. Ook als dub¬ 
bele woorden, zijn ingevoerd wordt dit 
herkend. Als nadeel kan hier worden 


kelijk de funktie te gebruiken die de 
mogelijkheid biedt getallen zowel op 
een komma als ook op een punt uit te 
lijnen. Hierbij is het wel zo dat alles 
keurig uitgelijnd moet staan en er naar 
de rekenfunktie moet worden gegaan. 
Het is dus niet zo dat alles wat er op 
het scherm staat zomaar kan worden 
opgeteld. Makkelijk is dat er op een 
eenvoudige manier lijnen, ja zelfs 
blokken kunnen worden getekend. 
Hiermee kunnen dan overzichtelijke 
kolommen op het scherm (printer) 
worden weergegeven. Hierbij is één 
druk op de knop of het aanwijzen van 
deze optie voldoende. 



Het Special-menu 
geeft de 
mogelijkheid 
o.a. macro’s en 
spellingschecker 
op te roepen. 


genoemd dat woorden waar een cijfer 
of cijfercombinaties in voorkomen, al¬ 
tijd als fout worden aangemerkt. De 
geschreven tekst wordt al naar gelang 
de keuze woord voor woord, per pa¬ 
gina of per tekstdeel wordt doorlopen. 
Als er een woord oplicht is dit niet 
herkend. U kunt nu kijken of het goed 
geschreven is. Zo niet dan kan dit ver¬ 
beterd worden. Het niet herkende 
woord kan ook op een eenvoudige wij¬ 
ze in het bestand worden opgenomen. 

Door de woorden die u als gebruiker 
regelmatig gebruikt steeds op te ne¬ 
men, krijgt u een woordenlijst die spe¬ 
ciaal voor u geschikt is.Als extra wor¬ 
den alle woorden die in het stuk voor¬ 
komen geteld. Een extra is hierbij een 
synoniemenlijst, deze wordt gebruikt 
door het indrukken van Alt-F1. U kunt 
nu kiezen uit een lijst synoniemen, dit 
zijn dus woorden met dezelfde bete¬ 
kenis, en zelfs antoniemen, dit zijn 
woorden met een tegengestelde bete¬ 
kenis. 


Rekenfunkties 

Veel mensen gebruiken de tekstver¬ 
werker voor het maken van bijvoor¬ 
beeld facturen. Hierbij werkt het mak¬ 


Databases 

Standaardbrieven kunnen op een 
eenvoudige manier worden gemaakt. 
Op de plaats waar een variabele moet 
worden gebruikt wordt een [] ge¬ 
plaatst. Bij het opmaken van de tekst 
door de computer wordt er op deze 
plaats gewacht tot er een tekst door 
middel van het toetsenbord wordt in¬ 
gevoerd. Indien er een [] wordt ge¬ 
bruikt wordt de variabele ingevoerd 
van uit een database. Deze database 
kan ook met het programma Word¬ 
Perfect zelf worden gemaakt. Dit 
maakt de tijd, die nodig is voor het 
maken van deze standaardbrieven 
aanmerkelijk korter, maar wat mis¬ 
schien nog belangrijker is: makke¬ 
lijker. 

Macro’s 

Een bijzondere plaats in het program¬ 
ma wordt ingenomen door de ma¬ 
cro’s. Hiermee kunnen stukken tekst, 
opdrachten, instellingen die vaak wor¬ 
den gebruikt worden vastgelegd. 
Deze kunnen waar dan ook in het pro¬ 
gramma worden gebruikt. Macro’s 
kunnen ook macro’s oproepen zodat 
ingewikkelde instellingen of opdrach¬ 
ten eenvoudig kunnen worden uit- 
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gevoerd. Zelfs bestaat er een moge¬ 
lijkheid een macro op te roepen die al¬ 
leen actief wordt als er aan een be¬ 
paalde voorwaarde wordt voldaan. 
Deze opties geven u unieke moge¬ 
lijkheden die voorheen voor vele Ami- 
ga gebruikers onbekend terrein wa¬ 
ren. 


Blokfunkties 

Er kan op een eenvoudige manier 
worden aangegeven welk gedeelte 
van de tekst moet worden geblokt. Het 
aanwijzen van de tekst die moet wor¬ 
den geblokt, met de muis is voldoen¬ 
de.Op deze gemarkeerde tekst kun¬ 
nen alle funkties worden toegepast. 
Kopiëren, stijl veranderen, woorden 
tellen, printen, alles is mogelijk. Deze 
bewerkingen worden dan alleen uit¬ 
gevoerd op het gemarkeerde blok. 
Een uitgebreide rekenfunktie behoort 
ook tot het programma. Er kunnen 24 
kolommen met getallen worden ge¬ 
maakt en hierop kunnen de volgende 
bewerkingen worden uitgevoerd: op¬ 
tellen, aftrekken, vermenigvuldigen, 
en delen. Zelfs kan er met formules 
worden gerekend. 


Conclusie: 

Het programma WordPerfect maakt 
van de Amiga een professionele com¬ 
puter, waarbij verschillende funkties 
makkelijker te bedienen zijn dan bij de 
MS-Dos computers. Hoewel het 
werken met de muis wel even wennen 
is, werkt het overzichtelijk. Misschien 
komt dit ook wel door de kleuren. 
WordPerfect is een zeer uitgebreid 
programma, dat nagenoeg alle denk¬ 
bare funkties die bij het tekstver¬ 
werken aan de orde kunnen komen, 
beheerst. Onbegrijpelijk vind ik het dat 
voor een grafische machine als de 



De Character Mapping tabel in WP. 


Amiga een uitgebreid exklusief pakket 
zoals WordPerfect niet de mogelijk¬ 
heid voor het verwerken van tekenin¬ 
gen is meegenomen. Dit zou de kwa¬ 
liteiten van de Amiga op en top benut 
hebben. 

Voordelen: 

0 -De snelheid 
0 -De mogelijkheden 
0 -De Help funkties 
0 -De zeer uitgebreide handleiding 
0 -De macro mogelijkheden 
° -De printer keuze 

Nadelen: 

0 -De Prijs Fl 995,-. excl BTW 
° -geen iff files (tekeningen etc.) kun¬ 
nen laden 

0 -Er moeten twee diskdrives zijn 

Leverancier: Word Perfect Europe. 
Telefoon 010-4070111. 



s 

Y 
B 
E 
X 

T. Schwaiger 

Commodore 64 

StarFile 

Het programma StarFile kan 
worden beschouwd als een zo¬ 
genaamde 'elektronische kaar¬ 
tenbak'. Wat u normaal op sys- 
teemkaarten zou opslaan, kunt 
u nu met uw Commodore 64 
en dit programma verwerken. 
Zaken die bij een gewone 
kaartenbak nogal tijdrovend 
en vervelend zijn, zoals het 
muteren, sorteren en opzoeken 
van gegevens, zijn nu in een 
oogwenk gedaan. 

Maar het programma biedt nog veel meer. Alle rekenfuncties die de program¬ 
meertaal BASIC op de Commodore 64 biedt, zijn bij StarFile zonder meer te 
gebruiken. Verder is het bijvoorbeeld niet nodig om exact te weten wat de titel of 
de inhoud van een kaart is. Afkortingen van wat u zoekt, al of niet in combinatie 
met logische EN/OF-functies, brengen u in een handomdraai naar de betreffende 
kaart. 

De besturing van het programma geschiedt door middel van menu's zodat de be¬ 
diening uiterst eenvoudig is. 

Verder kan StarFile uitstekend samenwerken met het eerder geïntroduceerde 
tekstverwerkingsprogramma StarTexter. 

[stuur mij: StarFile-pakket(ten) a ƒ. 75,- plus ƒ. 4,50 verzendkosten. -1 

.StarTexter pakket(ten) a ƒ. 75,- plus ƒ. 4,50 verzendkosten. 

I (Prijzen incl. BTW) 

I Ik betaal met bijgevoegde betaalcheque(s) 

| Naam: 

( Adres: 

Postcode: Woonplaats; 

j Tel: 

| Bon in enveloppe zenden aan: 

I_ 


Redactiebureau R. Heyer 
Postbus 10 

7475_ZG_MARKELO_ .| 



NIEUW 

DIGIPIC Frame Grabber. 

SNEL -Digtaliseert "realtime" beelden in 1 / 50 -st© seconde. 

FLEXIBEL -DIGIPIC schrijft, naar keuze alles of een gedeelte van 
het videoplaatje, weg in IFF formaat. 

VRIENDELIJK -Krachtig menu-gestuurd software om beelden te saven, 
laden, modifiseren, met duidelijke handleiding. 

-Gebruikt de standaard 16 grijswaarden van de AMIGA of 
met onze Extended grijs-schaal adapter 32 grijswaarden, 
het verschil is ongelooflijk . 

-Maak drie shots door de RGB filters en DIGIPIC zal een 
IFF plaatje produceren in 32 hoofdkleuren. 

-DIGIPIC kan elke 50-ste seconde een beeld pakken van 
uw draaiende videobron, een druk op uw linker 
mouse-button is genoeg. DIGIPIC kan per keer 4 beeldjes 
"random" of in uw volgorde digitaliseren. (Animatie) 
-Standaard 320 x 200 format, (Deluxe Paint, DigiPaint, 
Superbase, etc.) Andere formats instelbaar. 

Voor AMIGA 500/1000/2000 Incl. kabels: fl. 1.095.= exclusiefbior 


KWALITEIT 

KLEUR 

LOOP 

FORMAT 


A-8702 GENLOCK. 

De professionele computer/video interface voor een hobbyprijs 

Mix videobeelden met uw teksten en grafische voorstellingen. (Titelrollen, 
ondertiteling, video-animaties, bedrijfspresentaties, onderwijs-doeleinden). 
Wat altijd tussen de 2.000,= en 4.000,= gulden heeft gekost, kunt u nu 
aanschaffen voor onder de 1.000,= gulden. 

OPTIES: 

2 frontpanel-switches: schakelen tussen AMIGA-, Video- beeld of beiden. 
Aansluitkabels voor video naar GENLOCK, monitor naar GENLOCK. 

Voor Amiga 500/1000/2000 incl. kabels: fl. 83 1,67 exciusiefbt^ 

ALLDATA, Pauwenkamp = 58 MAARSSEN, 3465-650 16/73767 

Bel voor verdere informatie en dealers 
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De huiscomputer als basis van een volledig electronisch gestuurd huis blijkt geen groot 
succes. De computer is te onbetrouwbaar, te moeilijk in het gebruik, al is het een leuke 
aanloop voor de hobbyist. Naast huiscomputer, audio/video en huishoudelijke nut- 
tigheidsapparatuur zou er mogelijk in het "Home Automation" scenario plaats zijn voor 
hele nieuwe zaken. 


Het huis van de 
toekomst: 


Domotique en Home Automation 


A l weer een paar jaar geleden namen we uit de VS een van de eerste Home 
Automation bouwdozen van het merk X-10 mee. Dat zou met een C-64 
eenvoudig te bedienen te zijn en het uit- en aanschakelen van allerlei ap¬ 
paratuur was dan een fluitje van een cent. Helaas bleek het systeem alleen 
te werken met een netstroom van 110 Volt en 60 Hz, dus ook op de redactie 
gaat het licht nog gewoon met de hand aan en uit. Maar onze belangstelling 
was gewekt, hier lag de toekomst, wanneer zou ook in Europa de Home- 
Automation rage gaan toeslaan. 


Het X-10 systeem staat nog steeds in 
de kast, we weten dat ondertussen 
Busch/Jaeger (BBC) in Duitsland de 
zaak heeft aangepast aan onze span¬ 
ning, maar ook de prijs van ongeveer 
20 dollar per module naar zo’n 150 
gulden heeft opgevoerd. De droom 
van een goedkoop systeem voor de 
hobbyist is daarmee verloren gegaan. 
Met de computer pulsjes genereren, 
die dan via het stroomnet naar speci¬ 
ale ontvangers gingen die dan voor de 
schakelfunctie zorgden was een ele¬ 
gante oplossing, zonder veel aparte 
bedrading en relatief eenvoudig te in¬ 
stalleren. 


Interface C-64 - Stroomnet 

Ook al is de interface tussen de com¬ 
puter (in de VS zijn er algemene RS- 
232 koppelingen, maar ook directe 
koppelingen tussen C-64 en de cen¬ 
trale controller) relatief eenvoudig, de 
computer is geen erg goede "master". 
De gemiddelde huiscomputer, en dat 
geldt helaas ook voor de 64, is niet 
zodanig betrouwbaar, dat we er de 
hele besturing van bijvoorbeeld de 
verwarming aan willen ophangen. 
Dergelijke functies eisen een tamelijk 
betrouwbare computer. Er kan te ge¬ 
makkelijk wat fout gaan en dan zijn de 


gevolgen niet mis, ook al omdat de 
verzekering in dergelijke gevallen niet 
staat te juichen. 

Experimentfase 

Wie overigens wat wil experimente¬ 
ren, er zijn heel wat A/D (analoog- 
digitaal) interfaces te koop voor aller¬ 
lei computers, maar er is wel enige 
deskundigheid nodig om een eigen 
automatisch systeem 
op te zetten. Het aan¬ 
sturen van motoren en 
dergelijke dient dan 
wel via relais en een 
goede A/D interface te 
gebeuren. Maar begin 
liefst met een robot of 
een Marklin of Fisher 
bouwdoos, dat kan niet 
zo veel kwaad. De the¬ 
orie daar gaat namelijk 
in grote lijnen ook op 
voor wat men in een 
automatisch huis wil 
doen. 

Voor bepaalde model¬ 
len robots als die van 
Spectravideo (Electro¬ 
nics Nederland uit Am¬ 
sterdam) is de koppe- 
ling aan een computer 



zelfs de bedoeling. 

Geen Science fiction 

Het automatische huis is al lang geen 
science-fiction meer. Het is technisch 
goed te realiseren, alleen is de prijs 
voor massa-marketing veel te hoog. 
Standaardisatie van de electronische 
ruggegraat van het huis van de toe¬ 
komst is dus noodzakelijk, maar ook 
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het onderwerp van veel industriepoli¬ 
tiek en onderonsjes. 

Thuis gebruik maken van de moge¬ 
lijkheden van de electronica, de com¬ 
municatie en de schakeltechniek om 
allerlei functies automatisch uit te voe¬ 
ren, zo zou je Home Automation kun¬ 
nen omschrijven. Het is nog een beet¬ 
je een vaag begrip, waarbij men zich 
meestal wel iets voorstelt met allerlei 
afstandsbediening, met camera’s, 
met automatisch te regelen verlich¬ 
ting, eventueel schoonmaakrobots en 
veel nieuwe media, maar erg precies 
kunnen we het nog niet definiëren. De 
technici zeggen dan ook wel dat tech¬ 
nisch alles mogelijk is, maar dat de 
marketing moet uitmaken wat er ook 
verkocht kan gaan worden. 


Electronicareuzen 

De grote bedrijven op het ge- 
bied van de consumenten-elec- 
tronica, zoals Philips, Matsu- 
shita, General Electric, NEC, 
Electrolux en Zanussi weten al- . 
lang, dat dit hele gebied over 
een jaar of tien tot vijftien een •”" 
enorme markt gaat betekenen, |T' 
Men is dan ook al druk bezig 
posities in te nemen, markten af 
te schermen en politieke opzet- ™ , : 
jes te maken om de eigen afzet 
in deze belangrijke sector veilig 
te stellen. Men ziet in, dat over 
een paar jaar een wasmachine 
of beveiligingssysteem ook niet 
meer apart verkocht kan wor¬ 
den, maar tenminste een kop¬ 
peling naar een centraal bestu- 
rings-systeem in het huis aan¬ 
wezig moet zijn. En over de spe¬ 
cificaties van dat centrale sys¬ 
teem is men nu op een aantal 
fronten druk bezig. De Japanners 
hebben een soort standaard voor¬ 
gesteld, de Amerikanen maken druk 
plannen en ook in Europa is men 
bezig. Er is onder andere een Eureka 
project van de EEG om te komen tot 
een standaard voor de home-bus, de 
centrale ader door het huis. Maar de 
afzonderlijke bedrijven vonken onder¬ 
tussen dwars door al die standaardi- 
satiecommissies heen en trekken hun 
eigen plan. Philips bijvoorbeeld is 
druk bezig om de eigen Domestic Di¬ 
gital Bus in allerlei commissies bin¬ 
nen te loodsen, en dat is bij de Eu¬ 
ropese electronicaclub CENELEC al 
aardig gelukt. Het diepere strategi¬ 
sche plan van Philips gaat echter ver¬ 
der, men speelt ook mee in het Eureka 
IHS project, maar houdt ook een paar 
kaarten in de mouw. 


Home Bus 

Kay Nishi, ooit de gevierde vader van 
MSX, was een van degenen die de 
wereld hebben gewezen op de poten¬ 
tie van de electronica en datacommu¬ 
nicatie als basis voor toekomstige ont¬ 
wikkelingen. Hij bracht ook de term 
Home-Bus in verband met de huis- 
computer. Die zou de goedkope en 
universele bouwsteen moeten worden 
voor allerlei toepassingen, van de 
huiscomputer via datacommunicatie, 
nieuwe media naar de sprekende keu¬ 
kenmachines en programmeerbare 
huisrobots. Helaas is de droom van 
Kay Nishi niet helemaal zo uitgeko¬ 
men als hij gehoopt had, zijn MSX 
bleek te lijden aan een fundamentele 
8 bits bloedarmoede. MSX is lang¬ 








zamerhand teloor gegaan aan de in¬ 
dustriepolitieke ruzies tussen Japan 
Ine. en Microsoft, overdonderd door 
het succes van MS-DOS en op de 
thuismarkt door Nintendo’s Famicon 
en NEC 9800 PC’s. 

Toch zijn er nog enige tienduizenden 
Toshiba MSX chips beland in home- 
automation systemen, onder andere 
in de centrale controllers van X-10 
Corporation en van GE (Homemin- 
der), mede door hun relatief lage prijs 
en handige architectuur (de duizend¬ 
poot Z-80 was de basis van MSX). 

Andere weg 

De home-computer bleek echter niet 
voldoende als springplank voor verde¬ 
re automatisering in de huiskamer. Te 
weinig mensen zagen de vele moge¬ 
lijkheden van een programmeerbare 
besturingseenheid voor allerlei func¬ 


ties in en rond het huis. Er zijn wel wat 
setjes verkocht, waarmee via de ho¬ 
mecomputer of PC ook andere ap¬ 
paratuur aangestuurd kon worden, 
maar een groot succes is dat niet ge¬ 
worden. Bedrijven zoals Intellisys uit 
Dallas, dat grootschalig PC software 
wilde ontwerpen om het hele huis van¬ 
uit één punt te besturen, hebben on¬ 
dertussen afgehaakt. Het idee, dat ho¬ 
me automation een vervolg is op de 
office automation, en dat de computer 
in zijn basisvorm, dus met toetsen¬ 
bord en beeldscherm, de hoofdrol zou 
gaan spelen, is door vrijwel iedereen 
verlaten. 


Embedded 

Natuurlijk blijft de electronica wel een 
Üggj centrale rol spelen, en zullen 
chips en computers het hart vor¬ 
men van welk systeem dan ook, 
maar ze zullen niet meer als 
computer herkenbaar zijn. Der¬ 
gelijke ingebouwde ‘intelligen¬ 
tie’ noemt men wel 
‘embedded’, ingebed in het sys¬ 
teem. In de wasmachine en 
electrische oven zitten tegen¬ 
woordig wel degelijk computers, 
maar we zien die meer als pro¬ 
grammeerbare ‘timers’, als nut- 

8 1 tige maar niet los te denken 
functies van het systeem. 

m 

Domotique 

Het was Schotland, waar in de 
jaren 70 de eerste serieuze pro- 
dukten op het gebied van de 
‘Home Automation’ werden ont- 
Pll wikkeld. Nog steeds is het daar 
- | gemaakte X-10 systeem, dat 
door middel van kleine extra 
pulsjes op het lichtnet allerlei 
apparatuur kan bedienen, het meest 
populair. Vooral in de VS zijn er veel 
van verkocht, bijvoorbeeld door 
Tandy/ Radio Shack, maar de laatste 
tijd ook door bedrijven als Schlage. 
Het gaat om tegen de 10 miljoen 
schakelmodules, hetgeen ook inhoudt 
dat er in de afgelopen vijf, zes jaar in 
ongeveer 500.000 huizen in de VS 
iets aan automatisering van aan/ uit 
functies voor lampen, apparaten, etc. 
is gedaan. Dat is op zich een behoor¬ 
lijk aantal, maar gezien de ongeveer 
140 miljoen huizen en huishoudens in 
de VS nog lang geen echte door¬ 
braak. Bovendien blijken veel mensen 
zoiets meer als speelgoed te zien, 
men koopt het, speelt er wat mee, 
maar dan gaat het in de kast. 

De Fransen, die na de Japanners op 
dit moment het meest actief zijn, heb¬ 
ben het woord Domotique bedacht 
voor huis-automatisering. In het Ne- 
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derlands en Engels wordt dat iets als 
Domotica, maar dat woord is nog niet 
erg aangeslagen. 

Informatica hoofdrol 

De wereld staat wat betreft toepassing 
van de electronica aan de vooravond 
van een nieuwe revolutie, de informa¬ 
tica thuis. Niet alleen met een kleine 
huiscomputer voor wat tekstwerk en 
om wat mee te spelen, maar het gaat 
om het geïntegreerd gebruik van de 
electronica en informatica in prakti¬ 
sche toepassingen in het huis. Onder 
het begrip Home Automation vallen 
niet alleen automatische lichtschake¬ 
laars, maar ook security (beveiligings¬ 
apparatuur), robotica, klimaatbeheer¬ 
sing, de automatische en op afstand 
regelbare besturing van allerlei huis¬ 
houdelijke apparaten en audio/video 
apparatuur, een heel scala nieuwe 
toepassingen. 

Xanadu 

Nu spreekt men daar al jaren over, het 
huis van de toekomst kent men in alle 
werelddelen, in alle talen en er zijn 
tientallen demonstratieprojecten, zo¬ 
als het Xanadu house bij Disneyland 
in de VS. Dat is ontworpen door de ar¬ 
chitect Roy Mason, nu ook de initia¬ 
tiefnemer voor de Home Automation 
Association in de VS. 

Ook in Japan zijn er experimenten, en 
nogal wat rijke mensen in de hele we¬ 
reld willen het allernieuwste hebben 
en laten op maat iets ontwikkelen. 
Maar dat zijn meestal dromen, expe¬ 
rimentele, in elkaar geknutselde sys¬ 
temen, die voor normale mensen on¬ 
betaalbaar zijn. Er zijn natuurlijk altijd 
mensen, die ook zelf zoiets willen 
hebben, maar dan zullen ze of veel 
geld moeten neertellen voor hun auto¬ 


matische deuropeners en kli- 
maatcontrole, ofwel heel 
handig zijn en het zelf maken. 

Maar de industrie beseft na¬ 
tuurlijk wel degelijk, dat Home 
Automation op den duur een 
zeer interessante markt gaat 
worden en dat we over een 
paar jaar over een complete 
industrie praten. Dus is men al 
jaren bezig om de concepten 
voor Home Automation te ont¬ 
wikkelen en gereed te maken 
voor massa-marketing. 

In ons land heeft men bij Phi¬ 
lips al in 1979 een systeem 
voor besturing van allerlei 
audio/video apparatuur ontwikkeld, 
dat men de Digital Domestic Bus 
noemde, tegenwoordig afgekort tot 
D 2 B. Men heeft er bijna 10 jaar over 
gedaan om het concept te vervol¬ 
maken, maar nu is Philips met het 
D 2 B systeem dan ook al aardig gevor¬ 
derd en heeft men het tot (Cenelec) 
standaard weten te promoveren. 

De Japanners, met hun eigen ideëen 
en hun eigen HomeBus standaard 
hebben kortgeleden de D 2 B bus geac¬ 
cepteerd als deel van hun standaard. 
Er wordt nu internationaal druk over¬ 
leg gevoerd om ook de Amerikanen 
met hun CE-Bus (Consumer Electro¬ 
nics) tot een soort afstemming te be¬ 
wegen. De verschillende concepten 
overlappen elkaar en het is erg moei¬ 
lijk om een uniforme standaard te be¬ 
reiken, zelfs nu men daar in een EEG 
Eureka project mee bezig is. 

Daarbij komt, dat een aantal bedrijven 
ondertussen zelfstandig een eigen, 
niet gestandaardiseerd systeem heb¬ 
ben ontwikkeld en op de markt ge¬ 
bracht. Bang&Olufsen bijvoorbeeld 
heeft het BEOLINK systeem voor de 
bediening van audio en 
video in het hele huis. 
Het machtige Zweedse 
witgoedconcern Elec- 
trolux heeft een zeer 
praktisch systeem, dat 
binnenkort in de winkels 
komt. Het richt zich in 
eerste instantie op de 
beveiligingsmarkt, waar 
men sneller de vraag 
hoopt te kunnen genere¬ 
ren, maar kan worden 
uitgebouwd tot een com¬ 
pleet systeem met alle 
functies. De naam van 
het Electrolux systeem is 
Ease. 

Thomson in Frankrijk zag 
ook in de beveiliging de 
eerste toepassing, maar 
haar Securiscan sys¬ 


teem kost relatief veel, ongeveer 
10.000 Franse francs, 4.000 gulden 
per woning. De marketing verloopt 
daarom nog maar moeizaam. 
Misschien is het ook niet de veiligheid, 
die als ‘booster’ voor Home Automa¬ 
tion zal gaan fungeren, maar zijn het 
juist aspekten als energiebesparing of 
gewoon meer comfort, die de ogen 
van het grote publiek zullen openen. 

Japan 

In Japan heeft men in theorie nu een 
soort standaard gedefinieerd, maar 
de finale versie daarvan blijft nog wat 
uit. Ondertussen blijken de verschil¬ 
lende partners, die hebben samenge¬ 
werkt om die standaard te maken, 
zich er ook niet echt veel van aan te 
treken. NEC (Nippon Electric Compa- 
ny) bijvoorbeeld, wel degelijk een 
partner in de Home Electronics Bus 
club van Miti/EIAJ, gaat ondertussen 
druk door met het maken van een heel 
andere oplossing, waarbij men zoge¬ 
naamde spread-spectrum technieken 
gebruikt om signalen op de net¬ 
spanning te zetten. Dat valt niet bin¬ 
nen de standaard, maar NEC heeft al 
eerder bewezen, de eigen oplossin¬ 
gen effectief te kunnen doorzetten. 
Ook Mitsubishi heeft, in samenwer¬ 
king met Cyberlynx, in de VS een sys¬ 
teem aangekondigd, dat helemaal 
niet aansluit bij de Japanse stan¬ 
daard. Ondertussen is Matsushita, dat 
met Philips een soort onderonsje 
heeft gemaakt, in Japan bezig ge¬ 
weest om de D 2 B oplossing van Phi¬ 
lips in de officiële Japanse standaard 
te krijgen. 

Eureka 

De hele situatie in het Eureka project, 
en mogelijk ook in het Esprit project 
dat er op gaat volgen, is bepaald 
vaag. Projectleider is Thorn EMI, 
maar de belangrijkste partners zijn 
Electrolux, Thomson en Philips. Men 
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doet heel geheimzinnig over de feite¬ 
lijke doelen van de samenwerking van 
de bedrijven, er wordt een soort club- 
afspraak gemaakt en de buitenwereld 
wordt pas later op de hoogte ge¬ 
bracht. 



trolux, dat via dochters Zanussi en 
Oceanic betrokken is bij het Eureka 
IHS project, een standaard ontwikkelt 
en implementeert, waarna de andere 
partners zich terugtrekken en Electro- 
lux dan met de monopolie-Zwarte Piet 
blijft zitten. De openbaarheid en lega¬ 
liteit van dergelijke Europese projec¬ 
ten is dan ook een discutabele zaak, 
net zoals dat overigens voor de Ja¬ 
panse en de Amerikaanse projecten 
geldt. Het zijn allemaal clubjes, die 
samen de markt willen afdekken en 
het daarmee voor kleinere bedrijven 
moeilijker maken. 


Dat is een gevaarlijke strategie, want 
zelfs met EEG-geld en in een EEG- 
project kan men te maken krijgen met 
de anti-monopolie regelgeving van de 
EEG. De mogelijkheid is aanwezig dat 
een onderlinge afspraak tussen de 
deelnemers in het Esprit-project om 
die reden zal sneuvelen. Bovendien 
bestaat de kans dat met name Elec- 


Kans voor klein 

Toch zijn het juist de kleinere bedrij¬ 
ven, die hoogstwaarschijnlijk de ver¬ 
dere ontwikkeling van de Home Au- 
tomation moeten stimuleren. Niet al¬ 
leen de installatie ervan, het aanleg¬ 
gen van de bekabeling en het aanslui¬ 
ten van de diverse sensors en ‘actu- 
ators’, maar ook het service-aspekt is 
van belang. Het is al langer zo, dat er 
speciale bedrijven zijn, waarop men 


een alarminstallatie kan aansluiten. 
Wanneer er meer apparatuur beschik¬ 
baar komt met zogenaamde ‘tele- 
metering’ opties, neemt ook de be¬ 
hoefte aan dergelijke dienstverlening 
toe. Verder zal er een hele industrie 
gaan ontstaan van softwarebedrijven, 
die individuele oplossingen in een ho- 
me-automation systeem gaan pro¬ 
grammeren, speciale interfaces gaan 
ontwikkelen en onderhoud plegen. 
Deze technieken zouden, gezien het 
enorme potentieel, veel meer stimu¬ 
lering verdienen in nationaal en inter¬ 
nationaal verband. Wanneer we be¬ 
denken, dat er nog steeds meer hui¬ 
zen en auto’s zijn, dat per huis ener¬ 
giebesparingen in de orde van enige 
duizenden guldens per jaar mogelijk 
zijn, dat betere beveiliging zichzelf 
ook terugbetaalt (in verzekeringspre¬ 
mies bijvoorbeeld), dan zou de Home 
Automation of Domotica best wat 
meer aandacht mogen krijgen. 

L.Saia. 



SETTLE LIGHT SOFTS 

DAMMEN 

Eindelijk een tegenstander op niveau! 

★ Nederlandse handleiding met regels en taktische tips 

★ demonstratie-partijen 

★ invoeren van zetten met toetsen, cursor of joystick 

★ terugnemen van vorige zet 

★ zelf opzetten van standen 

★ computer speelt zwart of wit 

★ spiegelen van bestaande stand 


In de betere computershop voor 

ƒ 37,50 (cassette) 
ƒ 45, — (diskette) 


incl. BTW 
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jacht op punten voor het wereldkam¬ 
pioenschap. 

Inl: Martech, tel. Engeland 0323 
768456 

Magnetron 

Het gevecht met de Magnetron Ge¬ 
nerators ga je in dit spel aan als 
bestuurder van een minieme photon- 
jager. De Magnetron Generators zijn 


de Olympus. Elke god brengt vier ka¬ 
rakters in het spel, allen met verschil¬ 
lende capaciteiten en kracht-. Door 
een spervuur van vragen en antwoor¬ 
den proberen de góden hun tegen¬ 
standers buitten gevecht te stellen. 
Inl: Arcana Software, Engeland, 01 
8376294. 


uw beeldscherm; Monaco, Detroit, 
Monza of Brand Hatch, u zegt het 
maar. De spelers kunnen hun favorie¬ 
te circuit uitkiezen, maar ook kan men 
het schema volgen van het Formule I 
Grand Prix seizoen. Op deze manier 
kan men punten verzamelen voor het 
‘overall’ Formule I Championship. 
Tijdens de race moet de coureur be¬ 
slissingen nemen over eventuele pit¬ 
stops, onderhoud en reparaties. 
Naast een vaste hand en pure snel¬ 
heid moet men dus ook over het no¬ 
dige intellect beschikken wil men de 
huidige wereldkampioen onttronen 
Inl.: Electronics Arts, tel. Engeland 
0753 49442. 


Nigel Mansell 

Van Martech is het spel Nigel 
Mansell’s Grand Prix, voor de C-64 en 
128, zowel op disk als cassette. Nigel 
Mansell heeft hiervoor hoogst 
persoonlijk adviezen gegeven. Dit 
race-simulatiespel bevat de modern¬ 
ste technologie zoals constante radio¬ 
verbinding met de pits, turbo-aan- 
drijvng en on-board computer. De 
helft van het beeldscherm wordt in be¬ 
slag genomen door het dashboard, 
waar een grote hoeveelheid vitale in¬ 
formatie beschikbaar is voor de cou¬ 
reur. Het is mogelijk een selectie van 
de belangrijkste circuits in de wereld 
te berijden en zo mee te doen in de 


machtige en onvoorspelbare magne¬ 
tische wapens die je alle kanten op 
sturen. In de tussentijd wordt je 
geacht 50 vijandelijke bases rond de 
aarde te vernietigen. Het spel bevat 
een Game Generator waarmee je zelf 
de vijanden kunt ontwerpen. 
Magnetron is een spel voor de C-64 
van Broderdund Software in Califor- 
nia, tel. 415 492-3200. 


Agent op Mars 

Voor de Amiga heeft Arcana software 
een nieuw ruimtespel voor één speler, 
genaamd Mars Cops. De speler is lid 
van de vredespolitie op Mars, waar 
een aantal wetenschappers en tech¬ 
nici zijn gestationeerd op de snel 
groeiende Mars-kolonie. Ondanks de 
uitstekende verdediging van de pla¬ 
neet moet je er toch op uit om een 
aantal UFO’s te bestrijden. Je hebt 
per gevecht maar één raket om een 
UFO neer te schieten, maar met het 
laserwapen kun je de weg vrijmaken 
en UFO’s tijdelijk buiten gevecht stel¬ 
len. 

Ook Power Play Game of the Gods 

is een nieuw spel voor de Amiga van 
Arcana. Het spel was al bekend van 
de uitvoering voor 8-bits computers, 
en is een quiz tussen vier góden, 
Apollo, Hermes, Hecate en Aphrodite. 
De strijd speelt zich af op een bin¬ 
nenplaats in de tempel van Apollo op 


MPS 1500 


Commodore Netwerken 

AmeristarTechnologies Ine. heefteen 
Arenet LAN-kaart ontwikkeld die het 
mogelijk maakt om verschillende Ami- 
gas samen bestanden en een printer 
te laten gebruiken. Om een voorbeeld 
te geven: Een programma 
als Professionel Page dat op 
de ene machine loopt, kan 
de met DigiView aange¬ 
maakte foto’s van apparaat 
twee met een tekstbestand 
van de derde computer com¬ 
bineren. 

Ameristar heeft ook produk- 
ten ontwikkeld die geba¬ 
seerd zijn op de Internet 
standaardprotocollen (TCP/ 

IP en UDP/IP). Hiermee 
wordt het mogelijk om de 
Amiga te integreren in hy¬ 
bride mainframe omgevin¬ 
gen. 


Ferrari Formula 
One 

Electronics Art heeft aangekondigd 
binnenkort de Amiga Versie van Fer¬ 
rari Formula One op de markt te bren¬ 
gen. Dit spel is een gedetailleerd race 
simulatiespel dat de speler de gele¬ 
genheid biedt om al zijn race-fanta- 
siën tot leven te laten komen. Zonder 
enige problemen krijgt u 16 verschil¬ 
lende internationale racecircuits op 


Nieuwe Commodore 
kleurenprinter 

Met de nieuwe MPS 1500 C introdu¬ 
ceert Commodore een kleuren matrix¬ 
printer geschikt voor zowel de privé 
als de personal computers van Com¬ 
modore. Deze printer is in staat circa 
40 kleuren te produceren. De print- 
snelheid loopt uiteen van 120 eps bij 
normale kwaliteit tot 25 eps bij NLQ 
kwaliteit. De adviesprijs van de MPS 
1500 C bedraagt ƒ 1.199,- excl. BTW. 
Inl.: Commodore, tel.: 020-882222. 
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Scholen nemen 
computer in gebruik 

Tijdens een feestelijke bijeenkomst 
hebben elf basischolen uit de Bra¬ 
bantse gemeenten Drunen en Elshout 
officieel een aantal Commodore 64 
computers in gebruik genomen. De 
aanschaf werd mogelijk gemaakt door 
een gift van $20.000 van de Alcoa 
Foundation. Dit is een internationale 
stichting die projekten steunt op edua- 
catief en sociaal-maatschappelijk ge¬ 
bied en op het terrein van de gezond¬ 
heidszorg. 

De leerlingen van iedere basisschool 
lieten tijdens de feestelijkheden zien 
hoe goed zij reeds met de computers 
om kunnen gaan. De apparatuur voor 
de basisscholen is niet alleen bedoeld 
om de leerlingen vertrouwd te maken 
met automatisering, er worden ook 
met behulp van de computer lessen in 
allerlei vakken gegeven. Zo schreef 
één van de leerkrachten zelf een pro¬ 
gramma voor topografie en ook een 
programma voor Nederlandse spell¬ 
ing. De apparatuur werd geleverd 
door Malmberg uit Den Bosch, uit¬ 
gever van lesmaterialen en lessys¬ 
temen voor scholen. 



De burgemeester van Drunen aan 


de 64 verslaafd? 

Nieuwe Games 
Electronic Arts 

In de Verenigde Staten heeft Electro¬ 
nic Arts een vijftal nieuwe games voor 
de Commodore 64 en 128 geannon¬ 
ceerd, die hopelijk ook snel in Neder¬ 
land verschijnen. Om u vast een voor¬ 
proefje te geven bespreken we hier in 
het kort de nieuwe titels. 


Video Title Shop 

Dit lijkt op de naam voor een Amiga 
pakket, maar is toch voor de 64. Het 
opent vrij uitgebreide video-moge- 
lijkheden voor de Commodore 64. In 
combinatie met een videocamera en 
en videorecorder kan men voortaan 
heel wat eigen videoproducties 
maken. Video Title Shop kan allerlei 
titels, kaders, en grafische afbeeldin¬ 


gen toevoegen aan reeds bestaande 
videobeelden. Het programma bevat 
een uitgebreid aantal fonts en styles, 
met de mogelijkheid om de tekst over 
de graphics of videobeelden heen te 
projekteren. Verder is scrollen en 
fade-in en fade-out ook mogelijk. Dit 
pakket kan geleverd worden in combi¬ 
natie met de Video Title Shop 
Graphics Companion, dat zoals de 
naam al verraadt, een veelheid aan 
grafische mogelijkheden biedt. 

De Amerikaanse prijs voor beide pak¬ 
ketten bedraagt resp. $29.95 en 
$19.95. 

The Dungeon is de tweede uitgave in 
de Alternate Reality serie. Deze twee¬ 
de uitgave is wel een heel stuk uitge- 
breider dan zijn voorganger The City. 
De game begint met je te ontvoeren 
op een ruimteschip naar een driedi¬ 
mensionale wereld die bekend staat 
als The Alternate Reality. In het ver¬ 
dere verloop van het spel moet men 
proberen wraak te nemen op diege¬ 
nen die jouw ontvoering georgani¬ 
seerd hebben. Het spreekt voor zich 
dat je al je intelligentie, vaardigheid, 
kracht, wijsheid en zelfs je charme 
nodig zult hebben om je einddoel te 
bereiken en de vele onverwacht op¬ 
duikende vijanden te overmeesteren. 
Voor $39.95 kunt u deze alternatieve 
werkelijkheid al binnenstappen. 

The Road to Moscow 
Dit neemt u terug naar het Rusland 
van de jaren 1941-1945; de grote 
patriottische oorlog zoals de Russen 
het noemden, of het beroemde Rus¬ 
sische front van de Duitsers. Road to 
Moscow bevat vier verschillende stra¬ 
tegieën; de invasie van 1941, het 
tweede offensief van 1942, het Rus¬ 
sisch offensief van 1943 en de slag 
om Polen in 1944. In elk spel kunnen 
de spelers allerlei verschillende ‘units’ 
zoals infanterie, cavalerie, para¬ 
troepen en artilerie verplaatsen en/of 
versterken. Naast de Russen en de 
Duitsers zijn ook de Roemenen, de 
Italianen, de Hongaren, de Finnen en 
de Slovaken van de partij. Wellicht 
lukt het u zelfs nog om de historie een 
andere wending te geven. 

Battles in Normandy, 

June-July 1944 

Dit oorlogs-spel is gebaseerd op de 
gedenkwaardige dag van de zesde 
juni 1944, toen generaal Dwight D. Ei- 
senhowers geallieerde troepen Hitlers 
Atlantische Wal bestormden. De 
Game bevat acht verschillende sce¬ 
nario’s waarmee 1 of 2 spelers de 



Op de Comdex in Las Vegas liet 
Commodore heel wat software zien, 
voor de PC, maar ook voor de Amiga 


veldslagen van Omaha, Utah, Cher- 
bourg, etc. kunnen nabootsen. De 
spelers kunnen echter ook geheel ei¬ 
gen scenario’s uitdenken en uitvoe¬ 
ren. Ook hier zijn er allerlei bataljons 
in het spel, die met allerlei verschil¬ 
lend wapentuig kunnen worden uit¬ 
gerust. Battles in Normandy bevat 
naast het spelaspect ook de moge¬ 
lijkheid om gewoon zonder zelf in te 
grijpen te observeren hoe deze grote 
veldslagen zich in het verleden heb¬ 
ben voltrokken. Voor $39.95 kan men 
deze historie voor eigen ogen laten 
herleven. 

Diegenen die hun geduld niet kunnen 
bewaren en niet willen wachten op de 
introductie van deze spelen op de Ne¬ 
derlandse markt, kunnen ook nu al 
contact opnemen met: Electronics 
Arts, ze hebben een kantoor in de VS, 
1820 Gateway Drive, San Mateo, CA 
94404, USA, tel.:(415) 571-7171. 

Ook de Engelse afdeling van Elec¬ 
tronic Arts kondigde een aantal nieu¬ 
we spellen aan, zowel voor de C-64 
als de Amiga. 

Instant Music (C-64 en Amiga) 
Dit pakket laat iedereen binnen een 
paar seconden zelf muziek com¬ 
poneren of spelen. Het is zelfs ge¬ 
schikt voor muziekonderwijs of 
professioneel componeren. Instant 
Music gebruikt niet de standaard 
muzieknotatie, maar een methode die 
eenvoudig te leren is, mede door de 
makkelijke gebruikers-interface. In¬ 
stant Music zorgt er zelf voor dat er 
niet in het verkeerde ritme of in de ver¬ 
keerde toonsoort wordt gespeeld. Er 
kunnen vier instrumenten gebruikt 
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worden, en de gebruiker kan volgens 
de zgn. ‘muisjam’ een vierde instru¬ 
ment bedienen, terwijl het program¬ 
ma de overige drie laat spelen. Er zijn 
al een dozijn instrumenten inge¬ 
bouwd, evenals 40 bekende liedjes. 
Er komen nog extra diskettes met 
bekende melodieën, zoals It’s Only 
Rock ’n’ Roll en Hot & Cool Jazz. 
Skate or Die is een skateboard simu¬ 
latie voor de C-64. Na de keuze van 
het skateboard kan men inschrijven 
voor vijf verschillende wedstrijden, 
waarvan er drie zijn gebaseerd op 
professionele skateboard-competi- 
ties, nml. Ramp Freestyle, Downhill 
Race en Ramp Hill Jump. Daarnaast 
zijn er nog Pool Jousting en Inner City 
Downhill Battle. De computer zorgt 
voor sterke tegenstanders, en alle be¬ 
wegingen van het echte skateboarden 
zijn mogelijk. 

Earl Weaver Baseball komt bin¬ 
nenkort voor de Amiga. Het is een 
actie en strategie-baseball simulatie, 
waaraan een bekende baseballcoach, 
Earl Weaver, heeft meegewerkt. De 
speler kan als speler-manager alle 
kneepjes van het vak van Earl Weaver 
leren. Men kan tegen de grootste 
teams uit de jaren 1901 tot 1965 spe¬ 
len en ook een hele competitie spelen, 
waarbij de manager zijn eigen team 
kan opbouwen, rekening houdend 
met blessures, verschillende werpers 
inzetten en dergelijke. Het is zelfs mo¬ 
gelijk een eigen speelveld te ontwer¬ 
pen en een all-star team samen te 
stellen. Het programma omvat ook 
een aantal leuke speciale TV-effecten 
zoals directe herhalingen, slow-mo- 
tion en freeze frame. 


Apollo 18 komt op disk en cassette 
voor de C-64, en is een simulatie van 
een maanreis met een Apoilo-raket. 
Het spel laat de speler de Apollo be¬ 
sturen van countdown tot splash- 
down, en tussendoor moet de maan¬ 
lander met de hand worden neergezet 
op de maan en moet een ruimtewan- 
deling gemaakt worden om een defec¬ 
te satelliet te herstellen. 

Inl: Electronic Arts, Engeland, 0753 
49442 


Star Trek: The Rebel 
Universe 

Het softwarehuis Simon & Schuster 
brengt een nieuwe aflevering van de 
Star Trek serie. The Rebel Universe 
brengt de bemanning van de USS En¬ 
terprise tot leven in acht kleuren. In 
deze aflevering wordt de United Fede- 
ration of Planets gekonfronteerd met 
de grootste uitdaging tot nu toe. De 
Klingons hebben een systeem ont¬ 
dekt om leden van de federatie te con¬ 
troleren waardoor ze gewelddadige 
rebellen worden. De missie van de 
USS Enterprise komt erop neer dat 
het schip door een gevaarlijke Qua- 
rantaine-zone geleid moet worden, 
waarbij een konfrontatie met de Klin¬ 
gons, maar ook met Romulans en re¬ 
bellerende federatie-schepen, onaf¬ 
wendbaar is. De door de Klingons 
aangestichte rebellie moet overwon¬ 
nen worden, anders wordt de Enter¬ 
prise en haar bemanning voor eeuwig 
verbannen. 

Star Trek -The Rebel Universe is er op 
diskette voor Commodore 64 en 128, 
maar ook voor IBM PC en Atari ST. 


LOGiSTiX 

Van GRAFOX is het geïntegreerde 
spreadsheetpakket LOGiSTiX voor 
de Amiga, waarin een vierde dimensie 
is toegevoegd, namelijk de tijd. Het is 
mogelijk om door middel van een ‘tijd- 
sheet’ aan tijdmanagement te doen. 
Daarbij wordt informatie uit de databa¬ 
se gebruikt om hulpmiddelen voor be¬ 
paalde taken te verdelen over tijds¬ 
periodes (periodes van een half uur 
tot jaren zijn in te stellen). LOGiSTiX 
omvat naast de timesheet en databa¬ 
se, management spreadsheet-func- 
ties en grafische presentatiemogelijk¬ 
heden. 

Van het pakket verschijnt in januari 
1988 een Nederlandse vertaling. Be¬ 
halve voor de Amiga zijn er ook ver¬ 
sies voor de IBM PC en de Atari ST. 
De Nederlandse importeur is G.T. Soft 
in Amsterdam, tel. 020-166565 

Final Cartridge III 

Weer een nieuwe versie van de Final 
Cartridge, nu model III. De vorige mo¬ 
dellen waren misschien toch niet echt 
‘Final’. Distributeur Dunnet Internatio¬ 
nal vergelijkt deze cartridge voor C-64 
en 128 met de grafische interfaces 
van de Amiga en de Apple Macintosh. 
De Final Cartridge zorgt voor een in¬ 
terface met veel venster (window) mo¬ 
gelijkheden, programma’s kunnen er¬ 
mee gelreezed’ worden en spelletjes 
ge'killed’. ƒ 139,-. Inl: Dunnet Interna¬ 
tional, 010-4332448 


de MicroDrukker 

Textshop/ desktop publishing center 

Roelof Hartstraat 27, Amsterdam 020-644659 
Bespaar honderden guldens op zetkosten voor briefpapier, fakturen etc. 

Pluk de vruchten van de DTP techniek, bestel nu een complete set originelen voor uw zakelijk 
briefpapier, vervolgblad, factuur, aanmaning en declaratie-formulier. De complete set originelen, 
die u zo naar de (snel)-drukker of copyshop kunt brengen, kost u slechts f 100,- incl BTW. 

Bel op voor een voorbeeld, geef dan uw gegevens op, de hele set komt per post bij u binnen. 
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Elementair in het basisonderwijs is het leren rekenen. Daarbij kan de computer uitste¬ 
kend behulpzaam zijn, zoals blijkt uit het programma dat in deze aflevering van Zelf 
leerprogramma’s maken in BASIC aan de orde komt. De Abacus is een telraam, en 
dat kan ook op de computer worden toegepast. 


Zelf leerprogramma’s maken in BASIC 


Deel 7: De Abacus 

E en computer kan op onnoemelijk veel manieren worden ingezet om het 
leerproces in de klas te ondersteunen. Dat zal wel duidelijk zijn gewor¬ 
den uit de voorgaande afleveringen van deze reeks. De lijst is voorlopig nog 
niet af en deze keer breiden we hem uit met wederom een typisch reken¬ 
kundige toepassing. Niet omdat een computer daarvoor het meest geschikt 
is, maar toch is rekenkundige logika relatief eenvoudig om te zetten in 
BASIC programmaregels. 


Iedere rechtgeaarde moderne school¬ 
meester zal de abacus op waarde we¬ 
ten te schatten. Een ouderwets tel¬ 
raam met nieuwe perspektieven. 
Want een abacus is in feite niets meer 
of minder dan een telraam. De kralen 
staan wel rechtop, dat is bekend. Op 
deze wijze kan een kind spelenderwijs 
inzicht verkrijgen in de (eigenaardig¬ 
heden van ons positionele rekenstel¬ 
sel. De meest rechtse positie op de 
abacus vertegenwoordigt de klasse 
der eenheden. Van rechts naar links 
lopen de waarden van de kralen dan 
op met een factor tien tot meestal 
honderd. Sommige abaci gaan ver¬ 
der, maar zinnig is dat eigenlijk niet 
voor het begrip van ons rekenstelsel. 
Dat de abacus grote didaktische 
waarde heeft, wist men in de oudheid 
reeds. Het rekenwondertje is al zeer 
bejaard. Vooral daar, waar het begrip 
stokt, kan werken met de abacus in- 
zichtverhelderend werken. Veel kin¬ 
deren, die er zo niet meer uitkomen, 
kunnen steun vinden in het werken 
met een abacus. 


Rekenen met een abacus 
Als een kind leert rekenen, zal het ge¬ 
heugen in eerste instantie een grote 
rol spelen. Als een kind vaak somme¬ 
tjes ziet zoals 1+1=2, zal dat kind die 
rekenkundige voorstellingen globaal 
zien en onthouden. Van rekenen is 
nog geen sprake. Je zou het kunnen 
vergelijken met het aanvankelijke 
leesproces, waar de eerste woordjes 
vaak als een klankgeheel worden 


aangeboden, terwijl de onderdelen 
(de letters dus) pas later benoemd 
worden. 

Later, als het onthouden van gehelen 
geen oplossing meer biedt, leren de 
kinderen echt rekenen. Het tientallige 
stelsel, de positie/waarde verhouding 
van de cijfers in een getal, inwisselen 
van tientallen en honderdtallen, en¬ 
zovoort. Waar kinderen handelend 
leren rekenen (volgens mij de enige 
effectieve manier van leren rekenen), 
wordt vaak gebruik gemaakt van blok¬ 
jes en staafjes, waarbij de blokjes de 
eenheden vertegenwoordigen en de 
staafjes de tientallen. 

Door alle opdrachten aanvankelijk 
handelend uit te voeren, krijgen de 
leerlingen inzicht in het rekenstelsel. 
Een stapje verder naar het abstracte 
rekenen is dan het rekenen met be¬ 
hulp van een abacus. Daar is aan de 
lengte of afmeting van een kraal geen 
waarde af te lezen, zoals dat bij blok¬ 
jes en staafjes wel het geval was. Nu 
is de plaats van de kraal in het getal 
de waardebepalende factor. Want zo 
zit dat bij een abacus nu eenmaal. 

Als er nu een kraal van honderd moet 
worden ingewisseld voor tien van tien, 
zal die wissel puur op grond van de 
positie moeten gebeuren. De leerling 
kan niet even nameten of -tellen. 


Handelingsschema 

Het werken met een abacus vereist op 
de eerste plaats goede kennis van de 
handelingsschema’s volgens welke 
een rekenkundig probleem kan wor¬ 



den opgelost. Bijvoorbeeld: altijd eerst 
beginnen met het optellen/aftrekken 
van de eenheden. Bij optellen wordt 
dan vervolgens gekeken of een pen 
meer dan tien kralen bevat. Als dat zo 
is, worden tien daarvan ingewisseld 
tegen één op de pen aan de linker¬ 
kant, die een factor tien hogere waar¬ 
de heeft. Zoals u tien losse guldens 
kunt wisselen voor een tientje. 

Als men twee getallen moet aftrekken, 
wordt altijd eerst gekeken of er ge¬ 
noeg kralen op de pen zitten. Is dat 
niet het geval, dan moet er een kraal 
van hogere orde worden omgeruild 
voor tien minderwaardige, zodat de 
opdracht kan worden uitgevoerd. De 
nadruk ligt steeds op ‘uitvoeren’ of¬ 
tewel handelen. 

Dat inwisselen en terugwisselen gaat 
op elk nivo op exact dezelfde wijze. 
Daarom is het voor het begrip niet 
nodig, dat een abacus meer dan drie 
pennen heeft. Eenheden, tientallen en 
honderdtallen, dat is genoeg. 
Aangezien die handelingsschema’s 
steeds dezelfde zijn, is het niet erg in¬ 
gewikkeld om de werking van een 
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abacus door een computer te laten nabootsen. Het echte 
probleem zit veeleer in het grafisch weergeven van de resul¬ 
taten. Voor de meeste C-64 bezitters is het grafisch pro¬ 
grammeren een ingewikkelde zaak en dat is niet zonder 
reden. Erg vriendelijk is de BASIC interpreter van de C-64 
niet. Er is wel veel mogelijk, maar niet iedereen kan dat 
helaas aan. Om voor het abacus verhaal een zo groot mo¬ 
gelijke doelgroep te scheppen, ben ik bij het maken van een 
abacus op het scherm uitgegaan van de grafische tekenset, 
die onder de Commodore- en de Shift-toets zit. Ze staan 
vóór op de lettertoetsen. Dat bleek in de praktijk ruim¬ 
schoots voldoende. Alle tekens komen voor in de vorm van 
CHR$-codes, zodat ook de listing leesbaar blijft en er geen 
rijen onbegrijpelijke schermcodes (al dan niet vertaald) ont¬ 
staan. Eenvoud dus, want daar gaat het om. 


Het programma 

Wat doet het programma. Die vraag is eenvoudig te beant¬ 
woorden. Het programma voert een optel- of aftrek-opdracht 
uit van twee getallen kleiner dan duizend. Het antwoord mag 
niet negatief zijn of groter dan duizend. De reden daarvoor 
zal duidelijk zijn. Die voorwaarden worden overigens door 
de computer zelf getest. Bij ongeldige invoer van getallen 
wordt de abacus leegehaald en er moet dan een nieuwe op¬ 
dracht worden gegeven. 

Die gegeven rekenopdracht wordt in een aantal stappen uit¬ 
gevoerd. Bij elke stap wordt de abacus overeenkomstig bij¬ 
gewerkt en de gebruiker krijgt waar nodig schriftelijk com¬ 
mentaar of uitleg. Bij elke stap wacht de computer, tot de ge¬ 
bruiker een toets indrukt, alvorens verder te gaan. Zo kan de 
leerling de zaak even goed in zich opnemen. Tot slot ver¬ 
schijnt de oplossing van het rekenvraagstuk terwijl de aba¬ 
cus up-to-date op het scherm staat. Er kan dan na een toets- 
indruk weer een nieuwe opdracht worden gegeven. 
Duidelijk is, dat dit programma in deze vorm weinig meer 
doet dan het tonen van de handelende stappen bij het ge¬ 
bruik van een abacus. Dat kan op zich voor een leerling zeer 
verhelderend werken. Er is echter weinig interactie. Daar¬ 
mee kunt u zelf aan de slag. Met dit programma-model als 
voorbeeld, is het een koud kunstje deze abacus in een 
ander rekenprogramma in te bouwen. Ook kunt u het pro¬ 
gramma zo aanpassen, dat de leerling de stappen moet 
aangeven (via multiple choice of zo), terwijl de computer 
controleert en bijstuurt waar dat nodig is. Ik wilde in dit be¬ 
stek volstaan met het model van de abacus in BASIC. 


De listing 

De programma-listing bestaat weer uit een aantal vitale 
onderdelen. Veel sub-routines en rekenwerk. De regels 
150-240 bereiden een aantal zaken voor. Er worden varia¬ 
belen gevuld en de kralen krijgen kleur en vorm (pi $ tot en 
met p4$ zijn de kralen). Ook worden er weer strings ge¬ 
maakt om het plaatsen van de cursor op het scherm te 
vereenvoudigen. U ziet de gedimensioneerde variabele 
kr$(3,20), dat betekent: drie pennen van elk maximaal 20 
kralen. Meer is niet nodig. 

Dan begint de schermopbouw met een kader (regel 245) en 
de hele abacus-array kr$ wordt ontdaan van eventuele kra¬ 
len van een vorige opdracht. Na het wissen springt het pro¬ 
gramma naar regel 1020, waar de abacus op het scherm 
wordt neergezet. Na terugkeer volgt de rest van het scherm. 
Dat heeft u rechts op het beeld de abacus met links daar¬ 
naast een kader waarin de nodige mededelingen worden 
gedaan. Men kan bijvoorbeeld kiezen uit optellen of aftrek¬ 
ken door middel van de functie-toets fl en cursorloos twee 
getallen invoeren. Na het invoeren van de getallen (via de 
regels 910-985, inmiddels bekende werkwijze) gaat de hele 


iOO rem xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


105 rem xx de abacus xx 
110 rem xx ** 
115 rem xx leerprogramma's in basic xx 
120 rem xx ' xx 
125 rem xx (c) 1987 bob imnniksma xx 
130 rem xx xx 
135 rem xx voor corrmodore info xx 


140 rem xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
145 : 

150 rem initialisatie 

155 print chr$(142)chr$(8) dhr$ (147); 

160 dim kr$ (3, 20) 

165 pi$=chr$(144) +chr$(125) 

170 p2$=chr$(5)+chr$(113) 

175 p3$=chr$(31)+chr$(113) 

180 p4$=chr$(144)+chr$(119) 

185 ne$=chr$(19):for i=i to 21 
190 ne$=ne$+chr$(17) 

195 sp$=sp$+chr$(32):next 
200 b$=chr$(157) 

205 so$(l)=" 1 = optellen " 

210 so$(2)=" 2 = aftrekken " 

215 jn$(0)="nee":jn$(l)="ja ": b= 1 
220 g$(1)="eenheden " 

225 g$(2)="tientallen " 

230 g$(3)= "honderdtallen" 

235 poke 53280,O:poke 53281, 5:poke 646,0 
240 : 

245 rem schermopbouw 

250 x=1:y=1:w=15:h=1: gosub 1105 

255 1=2:c=4:gosub 1090:print"de abacus" 

260 x=l:y=4:w=l5:h= 19:gosub 1105 
265 : 

270 rem array wissen 

275 for i= 1 to 3:for j = 1 to 20 

280 kr$(i, j)=pl$:next j,i:gosub 1020 

285 1=6:c=l:gosub 1090;print"kies met" 

290 x= 11: y=5:w=2:h= 1: gosub 1105 

295 1=6:c=11:gosub 1090:print"fl":gosub 880 

300 1=12:c=2:gosub 1090:print"getal 1:"; 

305 q=0:gosub 910:a=val(an$):al=a 

310 if acl then 300 

315 gosub 815:hl=hX:ti=tX: el-e'/. 

320 for i=0 to hi:kr$(l, i)=p2$:next 
325 for i=0 to tl:kr$(2, i)=p2$:next 
330 for i=0 to ei:kr$(3, i)=p2$:next 
335 gosub 1045 

340 1=14:c=2:gosub 1090:print"getal 2:"; 

345 q=2:gosub 910:a=val(an$):a2=a 

350 if ad then 340 

355 on b gosub 370,550 

360 goto 260 

365 : 

370 rem optellen 

375 if al+a2>999 then return 

380 x=l:y=4:w=15:h=19:gosub 1105 

385 gosub 815:h2=hZ: t2=f/.: e2=eX 

390 1 = 5:c=1:gosub 1090:print al; "+";a2;" = " 

395 rh=hl+h2:rt=tl+t2:re=el+e2 

400 : 
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procedure van start. Leuke bijkomstigheid is, dat bij het in¬ 
voeren van getallen van drie cijfers het programma zelf 
doorgaat zonder op RETURN te wachten. Dit voorkomt het 
intikken van onzinnige getallen. 

We zien het programma dan uiteenvallen in twee hoofdbes¬ 
tanddelen, namelijk een afzonderlijk deel voor optellen en 
een deel voor het aftrekken. Dat is natuurlijk volkomen 
logisch, omdat optellen en aftrekken twee geheel verschil¬ 
lende zaken zijn ten aanzien van de algoritmen. Hoewel het 
dus eigenlijk twee afzonderlijke programma’s zijn, gebrui¬ 
ken ze natuurlijk wel een aantal sub-routines gezamenlijk. 

Optellen 

Het optellen begint op regel 370. Als de waarde van varia¬ 
bele b (van bewerking) 1 is, springt het programma na het 
invoeren van de twee getallen naar dit regelnummer. Leuk 
detail is, dat de sprong pas wordt gemaakt nadat het tweede 
getal geheel is ingevoerd. Tussentijds kan dus naar har¬ 
telust tussen optellen en aftrekken worden gekozen met de 
fl -toets. Pas als de getallen bekend zijn vindt een definitie¬ 
ve sprong plaats. Dat zal in de praktijk erg handig blijken. 
Na invoer van het eerste getal gebeurt er echter al heel wat. 
Het getal wordt ontleed in eenheden, tientallen en honderd¬ 
tallen en als zodanig op de abacus geplaatst. 

Als beide getallen legaal zijn (regel 375) wordt het medede¬ 
lingenkader rechts op het scherm gewist en er vindt een 
analyse van het tweede getal plaatst. Ook hiervan worden 
de eenheden, de tientallen en de honderdtallen vastgesteld 
en vervolgens bovenop de al aanwezige kralen op de aba¬ 
cus geplaatst. Wel in een andere kleur voor alle duidelijk¬ 
heid. 

Vervolgens wordt er gekeken of het aantal kralen op de pen 
van de eenheden groter is dan tien. Als dat zo is worden er 
tien van één ingeruild voor één van tien. De tien verdwijnen 
van de abacus en er komt een tien-kraal bij. Tot zover zeer 
overeenkomstig de werkelijkheid. Net zo volgt een controle 
van de pen van de tientallen. Honderdtallen worden niet ge¬ 
controleerd omdat er geen overdracht naar duizend moge¬ 
lijk is. Elke redelijke BASIC-programmeur maakt zonder 
veel problemen een duizend-pen voor deze abacus. Als het 
hele algoritme is afgewerkt volgt het antwoord en het spel 
kan van voren af aan beginnen. Tot zover optellen. 

Aftrekken 

Net zoals in werkelijkheid is het aftrekken van twee getallen 
een zaak die wat meer voeten in de aarde kan hebben. Niet 
als de hoeveelheden precies kloppen. Een sommetje als 47 
- 25 levert geen noemenswaardige problemen op. Een pro¬ 
gramma gemaakt voor het volvoeren van rekenopdrachten 
moet echter op de meest complexe instructies zijn voor¬ 
bereid. Of het ook geheel wordt uitgevoerd is dan niet aan 
de orde. 

Het programma moet wel in staat zijn zelf de juiste beslis¬ 
singen te nemen. Dat vereist nogal wat programmeerwerk. 
Zo is ook het algoritme van de aftreksom een beetje langer 
en ingewikkelder. Wat te denken van een aftreksom zoals 
531 - 86. Daar ontstaan de rekenproblemen voor veel kin¬ 
deren. De abacus laat echter altijd stap voor stap zien wat 
er eigenlijk gebeurt. Voor een aantal kinderen resulteert dit 
in het doorzien van de materie, zodat de hokus-pokus sfeer 
verdwijnt. De vaste routine komt neer op wat het program¬ 
ma steeds ten uitvoer brengt. Te beginnen bij de eenheden. 
Eerst wordt er gekeken of er voldoende eenheden zijn om 
de eerste aftrekhandeling uit te voeren. Is dat zo, dan is er 
geen probleem, erwordt direct afgetrokken. Eerst verschijnt 
de af te trekken hoeveelheid kralen in een ander, duidelijk 
te onderscheiden vorm en kleur. Na een druk op een toets 


405 rem Kralen erbij plaatsen 

410 if h2 = 0 then 420 

415 for i=hi + i to rh:kr$(l, i) =p3$:next 

420 if t2=0 then 430 

425 for i-ti + i to rt:kr$(2, i)=p3$:next 

430 if e2=0 then 440 

435 for i=ei+l to re:Kr$(3, i)=p3$:next 

440 gosub 1045 

445 : 

450 rem inwisselen eenheden 

455 1=9:c =3:gosub 1090:print"inwisselen" 

460 jn=0:1=11:c=1:gosub 1090:print g$(i); 

465 if re>9 then re=re-10:rt=rt+i:jn=1: 

kr$(2, rt)=p3$ 

470 print jn$(jn) 

475 for i = 0 to re:Kr$(3, i)=p3$:next 
480 for i=re+l to 20:Kr$(3, i)=pl$:next 
485 gosub 640:gosub 1045 
490 : 

495 rem inwisselen tientallen 

500 jn=0:1 = 13: c=l: gosub 1090:print g$(2); 

505 if rt>9 then rt=rt-10:rh=rh+i: jn=i: 

kr$(i, rh) =p3$ 

510 print jn$(jn) 

515 for i = 0 to rt:kr$(2, i) =p3$:next 
520 for i=rt + i to 20:kr$(2, i)=pl$:next 
525 for i=0 to rh:Kr$(l, i)=p3$:next 
530 gosub 840:gosub 1045 

535 l = 17:c = 2:gosub 1090:print"antwoord: "al+a2 
540 gosub 840:return 
545 : 

550 rem aftrekken 

555 if al-a2<0 then return 

560 x=l:y=4:w=15:h=19:gosub 1105 

565 gosub 815:h2=hX:t2=tZ:e2=eX 

570 l = 5:c=l:gosub 1090:print al; a2; " = " 

575 rh=hl-h2:rt=tl-t2:re=ei-e2 
580 : 

585 rem voorbereiding 
590 if e2=0 then 675 
595 if re>=0 then 645 
600 if tl=0 then gosub 780 
605 : 

610 rem tiental inwisselen 

615 1 = 7:c=i:gosub 1090:print"10-tal wissel " 

620 ei=el+10:re=el-e2 

625 for i=o to el:kr$(3, i)=p2$:next 

630 kr$(2, tl)=pi$:11 = 11 — 1:rt = tl-t2 

635 gosub 840:gosub 1045 

640 : 

645 rem aftrekken eenheden 

650 for i=re+i to el:Kr$(3, i)=p4$;next 

655 g=l:gosub 1165 

660 for i=re+i to el:kr$(3, i)=pl$:next 
665 gosub 1045 
670 : 

675 rem aftrekken tientallen 
680 if t2=0 then 720 
685 if rt>=0 then 695 
690 gosub 780 

695 for i=rt + l to tl:Kr$(2, i)=p4$:next 
700 g=2:gosub 1165 

705 for i=rt + l to tl:kr$(2, i)=pl$:next 
710 gosub 1045 
715 : 
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verdwijnen ze vervolgens echt. Dat is ook bij de tientallen en 
de honderdtallen steeds zo. Zijn er genoeg kralen op de 
pen, dan volgt direct de handeling. 

Maar stel, dat er niet genoeg kralen op de pen van de een¬ 
heden staan. Dan moet er worden geleend bij de buurman. 
En als daar dan ook geen kralen staan. Dan wordt er eerst 
geleend bij de honderdtallen. De routine kan daarna worden 
afgehandeld. Net zoals een mens, die met een abacus 
werkt, zich steeds allerlei zaken moet afvragen, doet het 
abacus-programma dat ook en laat het nog zien ook. De 
leerlingen krijgen zodoende een aardig inzicht in het aftrek 
algoritme. 

Laten we de genoemde som eens als voorbeeld nemen, om 
te kijken hoe het abacus-programma de zaak afhandelt. 

Een voorbeeld 

De abacus krijgt als opdracht de genoemde som: 561 - 86. 
Op regel 550 begint het dan. Weer eerst een controle op gel¬ 
digheid van de opdracht. Dan wordt het tweede getal uit¬ 
gesplitst in eenheden, tientallen en honderdtallen. Regel 
585 doet het programmaverloop springen naar regel 610 
omdat het tweede getal (e2) geen nul is en het verschil (re) 
van de eenheden kleiner is dan 0. Er worden dus tientallen 
ingewisseld. Dan zijn er wel genoeg eenheden voor het 
aftrekken. Het resultaat in ons geval is 5. Er rest nu in feite 
de som 550 - 80. 

De abacus wordt aangepast en wederom over de bestaan¬ 
de abacus heen op het scherm getekend. Het lijkt net of er 
op deze wijze kralen bijkomen en afgaan. Het hele gebeu¬ 
ren wordt van begeleidende tekst voorzien met verzoeken 
aan de leerling om na bekijken van alles op een toets te 
drukken voor het uitvoeren van de volgende fase. 

Waren er wel voldoende kralen geweest, dan werd dit hele 
inwisseldeel gewoon overgeslagen (zie regel 595). 

Op regel 675 zijn de tientallen aan de beurt. Er moet een 
honderdtal worden aangebroken. Na uitvoering blijven er 
dus vier honderdtallen over en het aftrekken van de tiental¬ 
len heeft als resultaat 7 (met als werkelijke waarde 70). 
Weer wordt de uiterlijke vorm van de abacus aangepast en 
samen met tekst op het scherm gezet. Weer moet de leer¬ 
ling voor elke volgende stap steeds op een toets drukken. 
Einde bewerking en het resultaat 4 honderdtallen, 7 tiental¬ 
len en 5 eenheden, ergo 475, verschijnt op het scherm en 
op de abacus natuurlijk. 

Niet erg ingewikkeld voor een computer, nietwaar. 
Complexer wordt een opdracht als deze: 400 - 1. Voor een 
knappe hoofdrekenaar een fluitje van een cent. Voor de 
computer de moeilijkste vorm wat betreft de abacus-presen- 
tatie. Let maar op. Bij het aftrekken van de eenheden begint 
het al. Er zijn er niet genoeg. Lenen dus. De pen van de 
tienen bevat geen kralen, derhalve kan er niet worden ge¬ 
leend. Wat nu. Eerst voorlenen bij de honderdtallen. Als dat 
voorlenen tijdens de uitvoering nodig blijkt, springt het pro¬ 
gramma naar regel 780. Daar wordt dan dat honderdtal 
gewisseld. Diezelfde routine loopt natuurlijk ook bij een ge¬ 
wone leen-handeling. 

Daarna lenen van de beschikbare tientallen en dan de een¬ 
heden aftrekken. 

De praktijk 

Ik hoop dat dit programma de lesgevende lezers weer op 
ideetjes heeft gebracht. Gebruik de abacus in het echt en 
laat deze scherm-abacus als ondersteuning dienen. Of ver¬ 
werk het programma zoals gezegd in een ander programma 
als reteacher van de leerstof of gewoon als steuntje voor de 
leerling. Ik wens iedereen in het onderwijs weer veel plezier 
met dit programma. De volgende keer presenteert Commo- 


720 rem aftrekken honderdtallen 
725 if h2=0 then 755 

730 for i=rh+l to hl:kr$(1, i) =p4$:next 
735 g=3:gosub 1165 

740 for i=rh+i to hl:kr$(1, i)=pi$:next 
745 gosub 1045 
750 : 

755 rem einde bewerking 
760 1=17:c = 2:gosub 1090 
765 print"antwoord:"; ai-a2 
770 gosub 840:return 
775 : 

780 rem 100-tal inwisselen 

785 1=7:c=l:gosub 1090:print"100-tal wissel" 

790 tl=tl+10:rt=rt+10 

795 for i = 0 to tl:kr$(2, i)=p2$:next 

800 kr$(l,hi)=pi$:hi=hl-l:rh=rh-i 

805 gosub 840:gosub 1045:return 

810 : 

815 rem analyse getal 
820 h/=a/i00:r=a-100xh>: 

825 tX=r/10: e'/=r-10*t/: 

830 return 
835 : 

840 rem wachten op toets 
845 print ne$;tab(4)" " 

850 for i=l to 200:next 
855 get t$:if t$="" then 865 
860 return 

865 print ne$;tab(4)chr$(18)" toets " 

870 for i=i to 200:next:goto 840 
875 : 

880 1=8:c=l:gosub 1090 

885 if b=i then print chr$(18); 

890 print so$(i):print tab(l); 

895 if b=2 then print chr$(18); 

900 print so$(2):return 
905 : 

910 rem invoer van gegevens 
915 an$ ="" 

920 get a$:if a$="" then 920 

925 a=asc(a$):if asc(a$)= 13 then 985 

930 if a=95 then 965 

935 if a=133 then 995 

940 if a<48 or a>57 then 920 

945 an$=an$+a$:l=12+q:c=10+len(an$) 

950 gosub 1090:print a$;b$; 

955 if len(an$)>2 then 985 
960 goto 920 

965 if len(an$)<l then 920 
970 an$=left$(an$, len(an$)-1) 

975 print" "b$;b$; 

980 goto 920 
985 return 
990 : 
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dore-lnfo een schermvullend memory-spel om globaal- en 
andere woorden te automatiseren. We gaan dan tevens een 
stapje verder in het programmeren van de C-64. In de vol¬ 
gende aflevering ga ik in op een eenvoudige sprite-animatie 
en de toepassing daarvan in een educatief en spannend 
memory-spel. 

B.M. 



995 rem wissel +/- 
1000 if b=l then b=2:goto 1010 
1005 b=1 

1010 gosub ö80:goto 920 
1015 : 

1020 rem abacus op het scherm zetten 
1025 1=3:c=17:gosub 1090:print"20"; 

1030 for i=l to 19:print chr$(99);:next 
1035 1=13:c=17:gosub 1090:print”10"; 

1040 for i=l to 19:print cbr$(99) | :next 
1045 print ne$ 

1050 print tab(18)chr$(18)left$(sp$, 20) 
1055 print tab(20)"100";tab(27)”10”; 

1060 print tab(35)"l" 

1065 for i=l to 20:print left$(ne$, 23-i); 
1070 ab=0:for j=l to 3:ab=ab+7 
1075 print tab(14+ab)kr$(j, i); :next j, i 
1080 return 
1065 : 

1090 rem cursor plaatsen 

1095 print left$(ne$, 1)tab(c);:return 

1100 : 

1105 rem kader plaatsen 

1110 K$="":s$="":for i=l to w 

1115 k$=K$+chr$(96):s$=s$+chr$(32):next 

1120 Kl$=chr$(176)+k$+chr$(174) 

1125 K2$=cbr$(125)+s$+cbr$(125) 

1130 k3$=chr$(173)+k$+cbr$(189) 

1135 print left$(ne$, y) | 

1140 print tab(x-l)Kl$ 

1145 for i=1 to h 
1150 print tab(x-l)k2$:next 
1155 print tab(x-i)k3$:return 
1160 : 

1165 rem mededeling eraf 

1170 1=10:: c- 1:gosub 1090:print g$(g) 

1175 print:print tab(l)"deze.gaan eraf" 
1180 gosub 1045:gosub 840:retum 
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Print-OUt Met o.a. 3D-shift, Autorun, Etiketten 128, Checksum C-16 


Zoals u vorige maand heeft kunnen lezen hebben we 
een prijsvraag uit geschreven. We hebben al een aan¬ 
tal inzendingen binnen gekregen, maar de beste com- 
putertijd moet nog komen. Om iedereen de gelegen¬ 
heid tot inzenden te geven hebben we de oproep her¬ 
haald, en omdat we door omstandigheden deze te 
laat hebben gepubliceerd, ook de inzendtermijn ver¬ 
lengd. U heeft nu tot 15 februari 1988 de tijd om een 
mooi programma te schrijven. Heeft u dus last van 
Software-armoe, geen kleuren monitor of geen 
printer, doe dan een gooi naar één van deze mooie 
prijzen. Ook in dit nummer staan weer een aantal list- 
ings. Heel secuur overtypen en u heeft er weer een 
aantal spelletjes of utility’s bij. Veel succes. 

R.Goudriaan. 


Syntax Checksum 


| Het overtikken van een listing kan een heel karwei 
1 zijn en als u een beetje normaal mens bent dan 
I maakt u daarin beslist een aantal fouten. Nu is niets 
i moeilijker dan de fouten uit je eigen werk te halen. Al 
I geruime tijd geleden heeft Jan Bodzinga hiervoor een 
t zgn. Checksum-programma geschreven. Om de vele 
jj nieuwe lezers van Commodore-info te helpen volgt 
j hieronder nog een keer een volledige uitleg over de 
j werking van dit programma, waarmee het, hoe 
ji vreemd dat misschien ook lijkt, echt mogelijk is om de 
j fouten in elke door ons geplaatste listing op te spo- 
l r en. 

j Hiervoor gaat u als volgt te werk: 

1. U tikt de listing heel zorgvuldig over en SAVEt hem 
j voordat u het programma RUNt op een diskette of 
| cassette. 

j 2. U tikt het RUN commando in. Mocht het program- 
j ma de boodschap ‘FOUT in dataregels!’ geven dan 
! heeft u een fout bij het overtikken gemaakt. Herstel 
f dan de fout en SAVE de verbeterde versie. Mocht het 
j programma met de boodschap 'data is weggezet 
j checksum testen met sys...’ komen dan is tot dusver 
1 alles goed. Het programma is nu in een stukje machi- 
1 netaalgeheugen gezet. Als u het NEW commando 
I geeft blijft het toch in de computer staan. 

| Alle door ons geplaatste programma’s zijn in Basic 
j geschreven. 

j Als u een programma heeft overgetikt SAVE het 
i eerst, mocht er iets mis gaan dan hoeft u niet de 
j gehele listing opnieuw te gaan intikken. Als u nu een 
1 programma op fouten wilt gaan controleren dan kunt 
jj u dat in het geheugen laden (wel eerst het checksum 
I programma hebben gerund). Vervolgens typt u zon- 
f der het programma te runnen de opdracht sys 
I 49152(c-64) of sys 1536 (c-16 en plus/4)in. 
j Als alles goed is gegaan loopt er nu een rij regelnum- 
I mers over het scherm met getallen erachter. Dezelfde 
I lijst staat ook achter elk door ons geplaatste program- 
| ma. Wijkt nu een nummer achter een regelnummer af 
j van het nummer dat in het blad staat dan heeft u in 
i die regel iets anders ingetikt dan er in het blad stond. 

U kunt de stroom getallen d.m.v. de RUN/STOP toets 
! pauzeren en weer vervolgen met de F1 of F7 toets, 
j Het is uitermate belangrijk dat u goed met dit pro¬ 


gramma overweg kunt en mocht u het niet goed wer¬ 
kend krijgen bel de listingservice telefoonlijn. (Maan¬ 
dag 17.00 tot 21.00 uur, tel. 02155-25162.) 

1 rem ****************************** 

* * * 

2 rem basic loader "SYNTAX.CHECKSUM" 

3 rem na de commando's "run" en "new 

tl 

4 rem blijft dit programma in het ge 

5 rem heugen. laad het te testen pro 

6 rem gramma en tik daarna sys 49152 

7 rem ****************************** 

★ ★ ★ 

10 i=49152 :rem beginadres 

20 reada:ifa<0then40:rem data ingelez 

en 

30 pokei,a:i=i+l:b=b+a:goto20 

40 if b<>16844thenprint"[SHIFT-CLR]fo 

ut[SPACE]in[SPACE]dataregels!":b=0 
: end 

50 poke4 9184,148:poke4 9185, 192 

55 i=49300 

60 read a: ifa<0then80 

70 pokei,a:b=a+b:i=i+l:goto60 

80 if b<>20068thenprint"[SHIFT-CLR]fo 

ut[SPACE]in[SPACE]dat aregels! [SPAC 
E](vanaf[SPACE]regel[SPACE]240)":b 
=0:end 

90 print"data[SPACE]is[SPACE]weggezet 

II 

95 print"checksum[SPACE]testen[SPACE] 

met[SPACE]sys49152" 

100 data 165,43,166,44,133,163,134,164 
,169,147 

110 data 32,210,255,160,0,240,3,32,73, 

192 

120 data 32,73,192,208,1, Q S, 32', 225,255 
, 208 

130 data 3,76,116,164,32,81,192,32,73, 

192 

140 data 240,12,201,32,240,247,24,101, 

167,133 

150 data 167,76,37,192,166,167,169,0,1 

32.168 

160 data 32,205,189,169,13,32,210,255, 

164.168 

170 data 76,17,192,200,208,2,230,164,1 

77,163 

180 data 96,162,0,189,123,192,240,6,32 

, 210 

190 data 255,232,208,245,32,73,192,170 

,32,73 

200 data 192,132,168,32,205,189,162,3, 

169,32 

210 data 32,210,255,202,208,250,169,0, 

133,167 

220 data 164,168,96,82,69,71,69,76,32, 

0 

230 data -1 

240 data 165,197,201,3,240,7,201,4,240 

250 data 6,76,148,192,76,34,192,169 

260 data 147,32,210,255,76,161,192 

270 data -1 

** Checksum-getallen: zie ommezijde. 
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print-out print-out print-out print-out print-out 


REGEL 

1 

249 

REGEL 

110 

158 

420 

data 

252,176,22,177,172 

REGEL 

2 

84 

REGEL 

120 

232 

430 

data 

32,221,237,32,225 

REGEL 

3 

105 

REGEL 

130 

183 

440 

data 

255,208,7,32,66 

REGEL 

4 

2 

REGEL 

140 

96 

450 

data 

246,169,0,56, 96 

REGEL 

5 

246 

REGEL 

150 

96 

460 

data 

32,219,252,208,229 

REGEL 

6 

152 

REGEL 

160 

127 

470 

data 

32,254,237,36,185 

REGEL 

7 

249 

REGEL 

170 

71 

480 

data 

48,17,165,186,32 

REGEL 

10 

157 

REGEL 

180 

223 

490 

data 

12,237,165,185,41 

REGEL 

20 

64 

REGEL 

190 

73 

500 

data 

239,9,224,32,185 

REGEL 

30 

38 

REGEL 

200 

79 

510 

data 

237,32,254,237,24 

REGEL 

40 

57 

REGEL 

210 

109 

520 

data 

32,226,252,162,10 

REGEL 

50 

14 

REGEL 

220 

106 

530 

data 

160,9,32,240,255 

REGEL 

55 

251 

REGEL 

230 

225 

540 

data 

162,0,189,234,192 

REGEL 

60 

192 

REGEL 

240 

16 

550 

data 

32,210,255,232,224 

REGEL 

70 

42 

REGEL 

250 

163 

560 

data 

20,208,245,96, 65 

REGEL 

80 

244 

REGEL 

260 

92 

570 

data 

85,84,79,82,85 

REGEL 

90 

245 

REGEL 

270 

22 

580 

data 

78,32,66,89,32 

REGEL 

95 

237 




590 

data 

72,32,68,69,32 

REGEL 

100 

183 




600 

data 

66,79,78,84,0 


Het nu volgende programma is geschreven door H de 
Bont. Door middel van dit programma kunt u uw eigen 
programma autostartend maken. Het programma 
autorun moet u laden en runnen. Hierna het comman¬ 
do new. U laadt nu het programma dat autostartend 
moet worden doet een nieuwe disk in de drive en ac¬ 
tiveert het geheel met sys 49152. Als u dit programma 
later dan weer wilt laden dan is load"naam",8,1 vol¬ 
doende om het programma te laden en te runnen. 


********************* 
** ** 

* autorun * 

* h de bont * 

** ** 


rem ******************* 
for i=49152 to 49407 
reada:pokei,a:next 
goto 620 

data 169,169,141,167,2 
data 169,0,141,168,2 
data 169,133,141,169,2 
data 169,157,141,170,2 
data 169,88,141,171,2 
data 169,32,141,172,2 
data 169,94,141,173,2 
data 169,166,141,174,2 
data 169,32,141,175,2 
data 169,142,141,176,2 
data 169,166,141,177,2 
data 169,76,141,178,2 
data 169,174,141,179,2 
data 169,167,141,180,2 
data 169,96,141,181,2 
data 169,167,141,2,3 
data 169,2,141,3,3 
data 169,167,141,193,0 
data 169,2,141,194,0 
data 169,8,141,186,0 
data 32,68,229,165,186 
data 208,3,76,9,247 
data 201,3,240,249,144 
data 95,169,97,133,185 
data 164,183,208,3,76 
data 16,247,32,213,243 
data 32,213,192,165,186 
data 32,12,237,165,185 
data 32,185,237,160,0 
data 32,142,251,165,172 
data 32,221,237,165,173 
data 32,221,237,32,209 


10 data 0 
20 printchr$ (14) 

30 print"[SHIFT-CLR][CRSR-DOWN][10xSP 
ACE]Geef(SPACE]nu[SPACE]eerst[SPAC 
E ] NEW! " 

40 print 

5 0 print"[6xSPACE]Daarna[SPACE]het[SP 

ACE]BASIC[SPACE]programma" 

60 print 

70 print"[6xSPACE]laden,[SPACE]een[SP 
ACE]andere[SPACE]diskette" 

30 print 

90 print"[6xSPACE]in[SPACE]de[SPACE]d 

isk-drive[SPACE]steken[SPACE]en" 

30 print 

L0 print"[6xSPACE]dan[SPACE]aktiveren 
[SPACE]met[SPACE]SYS49152" 

20 print 

30 print"[6xSPACE]Het[SPACE]programma 
[SPACE]wordt[SPACE]nu[SPACE]weg" 

40 print 

50 print"[6xSPACE]geschreven[SPACE]me 
t[SPACE]AUTO-RUN[SPACE]en" 

50 print 

7 0 print"[6xSPACE]het[SPACE]programma 

[SPACE]dient[SPACE]daarna[SPACE]" 
30 print 

90 print"[SxSPACE]geladen[SPACE]te [SP 

ACE]worden[SPACE]met:[SPACE]" 

30 print 

L0 print"[7xSPACE]''PROGRAMMANAAM'',8 

, 1[SPACE] ! !" 

20 end 

EINDE LISTING autorun ** 
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3D Shift 


3D staat in dit geval voor drie dimensionaal schuif- 
spel. De letters moeten weer terug in de originele po¬ 
sitie worden geschoven. Om het geheel nog veel 
moeilijker te maken heeft het spel een diepte werking. 
Vooraf wordt de uitgangs positie getoond. Het zal 
voor menig een heel wat uurtjes later zijn voor dit re¬ 
sultaat weer het zelfde is. Het is een programma van 
Bastiaan Bakker uit Gouda 

10 poke832,24:poke833,76:poke834,240: 

poke835,255:poke53280,15:poke53281 
, 15 

20 dima$(4,4,4):forz=lto3:fory=lto3:f 

orx=lto3:a$(x,y,z)=chr$(52+x+3*y+9 
*z) 

30 next:next:next:a$(3,3,3)="[SPACE]" 

:xl=3:yl=3:zl=3 

40 print"[SHIFT-CLR][2xCRSR-DOWN][CTR 

L 2]"spc(9)"superbit[SPACE]present 
eerf'spc(105)"[CTRL-3][SPACE]3d[SP 
ACE]shift[CTRL-1]"spc(101); 

50 print"dit[SPACE]is[SPACE]een[SPACE 

]3-d[SPACE]schuifspel."spc(14)"de[ 
SPACE]letters[SPACE]moeten[SPACE]w 
eer[SPACE]terug-" 

60 print"[4xSPACE]geschoven[SPACE]wor 

den."spc(2 3)"de[SPACE]kubus[SPACE] 
is[SPACE]voor[SPACE]de[SPACE]duide 
lijk-"spc(10); 

70 print"heid[SPACE]'uitelkaar[SPACE] 


:xl=xl+x2:yl=yl+y2:zl=zl+z2 
150 a$ (xl,yl,zl)="[SPACE]":s=r:next:p= 
0:gosub270:print 

160 print"[CRSR-UP][2xSPACE]welke[SPAC 
E]letter[SPACE]zal[SPACE]ik[SPACE] 
verschuiven?[2xSPACE][CRSR-LEFT] 
:poke204,0:waitl97, 60 
170 getv$:on-(v$<"a"orv$>"z")gotol70:p 
oke204,1:printv$ 

180 forr=0to5:x=(r=0)-(r=l):y=(r=2)-(r 
=3):z=(r=4)-(r=5) 

190 ifa$(xl+x,yl+y,zl+z)=v$thenv=l:x2= 
x:y2=y:z2=z 

200 next:ifv=0thengotol60 

210 p=p+l:a$(xl,yl,zl)=a$(xl+x2, yl+y2, 
zl+z2):xl=xl+x2:yl=yl+y2:zl=zl+z2 
220 a$(xl,yl,zl)="[":v=0:forz=lto3:for 
y=lto3:forx=lto3 

230 ifa$ (x, y, z)Ochr$ (52+x+3*y+9*z) the 
nv=l 

240 next:next:next:a$(xl,yl, zl)="[SPAC 

E]":gosub280:print:onvgotol60:prin 
t"[4xSPACE]geluk"; 

250 prinf’t,in”p"beurten.":input"[4xSP 

ACE]nog[SPACE]een[SPACE]keer[SPACE 
](j/n)";v$:ifv$="j"thenrun 
260 end 

270 print"[SHIFT-CLR]":fora=lto3:poke7 
82, a*10-5:gosub300:next 
280 forz=lto3:fory=lto3:forx=lto3:poke 
781,8-z+3*y:poke782,3*x+10*z-7 
290 sys832:printa$(x,y,z):next:next:ne 
xt:print"[3xCRSR-DOWN]":return 
300 restore:forb=9-atob+9:poke781,b:re 
add$:sys832:printd$:next:return 
310 data"[CTRL-9][SHIFT-|][2xSPACE]N[2 
xSPACE]N[2xSPACE]N"," [CTRL-0] [COM- 
G][2xSPACE][COM-G][2xSPACE][COM-G] 
[2xSPACE][CTRL-9][SPACE]"," [CTRL-0 
][COM-G][2XSPACE][COM-G][2xSPACE][ 
COM-G][2xSPACE][CTRL-9][SPACE]","[ 
CTRL-0] L[2xCOM-P]L[2xCOM-P]L[2xCOM 
P][CTRL-9]N” 

320 data" [CTRL-0] [COM-G][2xSPACE][COM- 
G][2XSPACE][COM-G][2xSPACE][CTRL-9 
][SPACE]"," [CTRL-0] [COM-G][2xSPACE 
][COM-G][2xSPACE][COM-G][2xSPACE][ 
CTRL-9][SPACE]"," [CTRL-0] L[2xCOM-P 
]L[2xCOM-P]L[2xCOM-P][CTRL-9]N" 

330 data" [CTRL-0] [COM-G][2xSPACE][COM- 
G][2xSPACE][COM-G][2xSPACE][CTRL-9 
][SPACE]"," [CTRL-0] [COM-G][2xSPACE 
][COM-G][2xSPACE][COM-G][2xSPACE][ 
CTRL-9][SPACE]"," [CTRL-0] L[2xCOM-P 
]L[2xCOM-P]L[2xCOM-P][SHIFT-|]" 


geschoven',dus"spc(10)"de[SPACE]'a 
'zit[SPACE]voor[SPACE]de[SPACE]'j' 

[SPACE]en[SPACE]de" 

80 printspc(4)s'."spc(36)"veel[SPAC 

E]succes!" 

90 print"[CRSR-DOWN][4xSPACE]druk[SPA 

CE]op[SPACE]een[SPACE]toet s." 

100 pokel98,0:waitl98,1:gosub270:print 
"[4xSPACE]zo[SPACE]moet[SPACE]het[ 
SPACE]er[SPACE]uit[SPACE]kom"; 

110 print"en[SPACE]te[SPACE]zien."spc( 

46);:input"moeilijkheidsgraad(1/.. 

)";m:fora=lto5*m:s=7 

120 r=int(rnd(ti)*6):on-(r=s)gotol20:x 
2=(r=0)-(r=l):y2=(r=2)-(r=3):z2=(r 
=4)-(r=5) 

130 ifa$(xl+x2,yl+y2,zl+z2)=""thenl20 

140 a$(xl,yl,zl)=a$(xl+x2,yl+y2,zl+z2) 
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Klok 64 


Met het programma klok 64 kun je een digitale klok op 
het scherm krijgen in super grote letters, na al diverse 
keren een klok programma gepubliceerd te hebben 
leek deze, opgestuurd door Wim Versloot, ons ook 
wel aardig. 


ï 10 rem *** klok! *** 

ï 20 k$="[CRSR-DOWN][4xCRSR-RIGHT][CTRL 

9][SPACE] [CTRL-0 ][CRSR-LEFT][2xCR 
SR-DOWN][CTRL-9][SPACE] [CTRL-0]" 

! 30 printchr$(147) 

* 40 dimge$(9) 

I 50 b$="[HOME][5xCRSR-RIGHT][9xCRSR-DO 

) WN] " 

| 60 poke53280,0 

j 70 poke53281,0 

J 80 poke646,7 

I 90 forx=0to9 

| 100 readdt$ 

j 110 ge$(x)=dt$ 

120 nextx 

130 print"getallen[SPACE]invoeren[SPAC 

E]in[SPACE]2[SPACE]cij fers!" 

\ 140 input"[CRSR-DOWN]uren";u$ 

j 150 ifval(u$)>23orval(u$)<0thenl40 

1 160 input"minuten";m$ 

f 170 ifval(m$)>59orval(m$)<0thenl60 

j 180 input"seconden" ; s$ 

f 190 ifval(s$)>59orval(s$)<0thenl80 

j 200 ti$=u$+m$+s$:print"[SHIFT-CLR]" 

I 210 p=val(ti$) 

I 220 fori=lto6 

f 230 d$ (i)=mid$(ti$, i, 1) 
j 240 nexti 

I 250 fori=lto6 

| 260 j=val(d$(i) ) 

| 270 printb$;ge$(j) 

I 280 ifi=2thenprintb$;k$:b$=b$+"[2xCRSR 

-RIGHT]" 

I 290 ifi=4thenprintb$;k$:b$=b$+"[2xCRSR 

-RIGHT]" 

1 300 b$=b$+"[4xCRSR-RIGHT]" 

! 310 nexti:b$="[HOME][5xCRSR-RIGHT][9xC 

RSR-DOWN]" 

| 320 ifval(ti$)>pthengoto21Ö 

I 330 goto320 

| 340 data"[CTRL-9][3xSPACE] [CTRL-0] [CRS 

R-DOWN][3xCRSR-LEFT][CTRL-9][SPACE 
] [CTRL-0] [SPACE][CTRL-9][SPACE][CT 
RL 0][CRSR-DOWN][3xCRSR-LEFT][CTRL 
9][SPACE] [CTRL-0] [SPACE][CTRL-9][ 
SPACE] [CTRL-0] [CRSR-DOWN][3xCRSR-L 
EFT][CTRL-9][SPACE] [CTRL-0] [SPACE] 
[CTRL-9][SPACE] [CTRL-0] [CRSR-DOWN] 
[3xCRSR-LEFT][CTRL-9][3xSPACE][CTR 
L 0]" 

| 350 data" [2XSPACE][CTRL-9][SPACE][CTRL 

0][CRSR-DOWN][3xCRSR-LEFT][2xSPAC 
E][CTRL-9][SPACE] [CTRL-0] [CRSR-DOW 
N][3xCRSR-LEFT][2xSPACE][CTRL-9][S 
PACE] [CTRL-0] [CRSR-DOWN][3xCRSR-LE 
FT][2XSPACE][CTRL-9][SPACE] [CTRL-0 
][3xCRSR-LEFT][2xSPACE][CTRL-9][SP 

I ACE] [CTRL-0] [CRSR-DOWN][3xCRSR-LEF 
T][2xSPACE][CTRL-9][SPACE] [CTRL-0] 

II 

360 data"[CTRL-9][3xSPACE] [CTRL-0] [CRS 

R-DOWN][3xCRSR-LEFT][2xSPACE][CTRL 
9][SPACE] [CTRL-0] [CRSR-DOWN][3xCR 
SR-LEFT][CTRL-9][3xSPACE] [CTRL-0] [ 


CRSR-DOWN][3xCRSR-LEFT][CTRL-9][SP 
ACE] [CTRL-0] [2xSPACE][CRSR-DOWN][3 
xCRSR-LEFT][CTRL-9][3xSPACE][CTRL- 
0 ] " 

370 data"[CTRL-9][3xSPACE] [CTRL-0] [CRS 
R-DOWN][3xCRSR-LEFT][2xSPACE][CTRL 
9][SPACE] [CTRL-0] [CRSR-DOWN][3xCR 
SR-LEFT][CTRL-9][3xSPACE] [CTRL-0] [ 
CRSR-DOWN][3xCRSR-LEFT][2xSPACE][C 
TRL 9][SPACE] [CTRL-0] [CRSR-DOWN][3 
xCRSR-LEFT][CTRL-9][3xSPACE][CTRL- 
0 ] " 

380 data"[CTRL-9][SPACE] [CTRL-0] [SPACE 
][CTRL-9][SPACE] [CTRL-0] [CRSR-DOWN 
][3xCRSR-LEFT][CTRL-9][SPACE][CTRL 
0][SPACE][CTRL-9][SPACE] [CTRL-0] [ 
CRSR-DOWN][3xCRSR-LEFT][CTRL-9][3x 
SPACE] [CTRL-0] [CRSR-DOWN][3xCRSR-L 
EFT][2xSPACE][CTRL-9][SPACE][CTRL- 
0][CRSR-DOWN][3xCRSR-LEFT][2xSPACE 
][CTRL-9][SPACE] [CTRL-0]" 

390 data"[CTRL-9][3xSPACE] [CTRL-0] [CRS 
R-DOWN][3xCRSR-LEFT][CTRL-9][SPACE 
] [CTRL-0] [2xSPACE][CRSR-DOWN][3xCR 
SR-LEFT][CTRL-9][3xSPACE] [CTRL-0] [ 
CRSR-DOWN][3xCRSR-LEFT][2xSPACE][C 
TRL 9][SPACE] [CTRL-0] [CRSR-DOWN][3 
xCRSR-LEFT][CTRL-9][3xSPACE][CTRL- 
0 ] " 

400 data"[CTRL-9][3xSPACE] [CTRL-0] [CRS 
R-DOWN][3xCRSR-LEFT][CTRL-9][SPACE 
] [CTRL-0] [2xSPACE][CRSR-DOWN][3xCR 
SR-LEFT][CTRL-9][3xSPACE] [CTRL-0] [ 
CRSR-DOWN][3xCRSR-LEFT][CTRL-9][SP 
ACE] [CTRL-0] [SPACE][CTRL-9][SPACE] 
[CTRL-0] [CRSR-DOWN][3xCRSR-LEFT][C 
TRL 9][3XSPACE] [CTRL-0] " 

410 data"[CTRL-9][3xSPACE] [CTRL-0] [CRS 
R-DOWN][3xCRSR-LEFT][2xSPACE][CTRL 
9][SPACE] [CTRL-0] [CRSR-DOWN][3xCR 
SR-LEFT][2xSPACE][CTRL-9][SPACE][C 
TRL 0][CRSR-DOWN][3xCRSR-LEFT][2xS 
PACE][CTRL-9][SPACE] [CTRL-0] [CRSR- 
DOWN] [3xCRSR-LEFT][2xSPACE][CTRL-9 
][SPACE] [CTRL-0] " 

420 data"[CTRL-9][3xSPACE] [CTRL-0] [CRS 
R-DOWN][3XCRSR-LEFT][CTRL-9][SPACE 
] [CTRL-0] [SPACE][CTRL-9][SPACE][CT 
RL 0][CRSR-DOWN][3xCRSR-LEFT][CTRL 
9][3xSPACE] [CTRL-0] [CRSR-DOWN][3x 
CRSR-LEFT][CTRL-9][SPACE] [CTRL-0] [ 
SPACE][CTRL-9][SPACE] [CTRL-0] [CRSR 
-DOWN][3xCRSR-LEFT][CTRL-9][3xSPAC 
E] [CTRL-0] " 

430 data”[CTRL-9][3xSPACE] [CTRL-0] [CRS 
R-DOWN] [3xCRSR-LEFT][CTRL-9][SPACE 
] [CTRL-0] [SPACE][CTRL-9][SPACE][CT 
RL 0][CRSR-DOWN][3xCRSR-LEFT][CTRL 
9][3xSPACE] [CTRL-0] [CRSR-DOWN][3x 
CRSR-LEFT][2xSPACE][CTRL-9][SPACE] 
[CTRL-0] [CRSR-DOWN][3xCRSR-LEFT][C 
TRL 9][3xSPACE] [CTRL-0] " 


** EINDE LISTING klok-64 ** 
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Sprite editor 


Bastiaan Bakker uit Gouda heeft ons een eigen sprite 
editor opgestuurd. Het programma zal voor iedereen 
duidelijk zijn. Veel succes met het ontwerpen van uw 
eigen sprites. 

10 poke55,0:poke56,31:clr:be=255:tm=l 
2224:s=54272:v=53248:pokev+37,5:po 
ke650,be 

20 fora=704to726:readb:pokea,b:next:f 

ora=727to766:pokea,0:next:te=16320 
:ch=13 

30 data,255,,,255,, , 195, , , 195, , , 195, , 

,195,,,255,,,255:pokev+7,210:poke2 
043,be 

40 pokev+32,6:pokev+33,6:printchr$(8) 

chr$(142):pokev+39,1:bm=191:pokev+ 

3, 100 

50 pokev+28,4:pokev+2,30:pokev+16,2:p 

okev+38,0:fora=lto3:pokev+39+a,13: 
next 

60 poke2040,11:pokev+4,119:pokev+5,21 

0:pokev+6,226:poke2042,bm:m0=5:got 
o270 

70 print"(HOME][CRSR-DOWN][13xSPACE]" 

:return 

80 print"[SHIFT-CLR][CTRL-9][SPACE]ee 

n-kleurige[SPACE]sprites[SPACE]mak 
en[SPACE]:[SPACE]'francois' [CTRL-0 
]even[SPACE]geduld[SPACE]!":d=be 
90 gosub990:d=te:gosub250:ifc=lthengo 

sub220 

100 gosub70 

110 gosubl50:geta$:ifa$="m"thenreturn 
120 if (peek(56320)andl6) =0thenpokeal , 1 
60:pokes+al,ch:pokea3,peek(a3)or2I 
a4 

130 ifa$="[SPACE]"thenpokeal,32:pokea3 

,peek(a3)and255-2la4 
140 gotollO 

150 j=peek (56320)andl5:ifj=14theny=y-8 

:ify<74theny=234:gotol90 
160 ifj=13theny=y+8:ify>234theny=74:go 

tol90 

170 ifj=llthenx=x-8:ifx<32thenx=216:go 

tol90 

180 ifj=7thenx=x+8:ifx>216thenx=32 

190 pokev,x:pokev+l,y:a3=d+((y-74)*.37 

5)+int(x/64-.5):a4=27-x/8and7 
200 al=772+(x/8)+(y*5):return 

210 print"[SHIFT-CLR]:printtab(20-(1 

en(a$)/2))+"[CTRL-9]"+a$:return 
220 foral=0to60step3:fora2=0to2:c=peek 

(te+al+a2):fora4=7to0step-l 
230 ifc>=2ïa4thenpokeb,160:c=c-2ïa4:po 

kes+b,ch 

240 b=b+l:next:next:b=b+l6:next:return 

250 fora=dtod+62:ifpeek(a) >0thenc=l 


260 next:return 

270 pokev+21,12:c=0:print"[SHIFT-CLR][ 
CTRL-9][COM-6][3xSPACE]s[SPACE]p[S 
PACE]r[SPACE]i[SPACE]t[SPACE]e[SPA 
CE]-[SPACE]e[SPACE]d[SPACE]i[SPACE 
]t[SPACE]o[SPACE]r[SPACE]:[SPACE]m 
[SPACE]e[SPACE]n[SPACE]u[2xSPACE]" 
280 print"[CRSR-DOWN][2xSPACE]block[SP 
ACE]nr.[SPACE]1-kleurige[SPACE]spr 
ite";be:print"[2xSPACE]block[SPACE 
]nr.[SPACE]multicolor[SPACE]sprite 
"; bm 

290 print"[CRSR-DOWN][2xSPACE][CTRL-9] 
[CTRL-6][SPACE]0[SPACE] [CTRL-0] [CO 
M 6][SPACE]uitleg":print"[2xSPACE] 
[CTRL-9][CTRL-6][SPACE]1[SPACE][CT 
RL 0][COM-6][SPACE]1-kleurige[SPAC 
E]sprite[SPACE]maken" 

300 print"[2xSPACE][CTRL-9][CTRL-6][SP 
ACE]2[SPACE] [CTRL-0] [COM-6][SPACE] 
multicolor[SPACE]sprite[SPACE]make 
n":print"[2xSPACE][CTRL-9][CTRL-6] 
[SPACE]3[SPACE] [CTRL-0] [COM-6][SPA 
CE]sprite[SPACE]inverteren" 

310 print"[2xSPACE][CTRL-9][CTRL-6][SP 
ACE]4[SPACE] [CTRL-0] [COM-6][SPACE] 
sprite[SPACE]verschuiven":print"[2 
xSPACE][CTRL-9][CTRL-6][SPACE]5[SP 
ACE] [CTRL-0] [COM-6][SPACE]kleuren[ 
SPACE]veranderen" 

320 print"[2xSPACE][CTRL-9][CTRL-6][SP 
ACE]6[SPACE] [CTRL-0] [COM-6][SPACE] 
data[SPACE]bekijken":print"[2xSPAC 
E][CTRL-9][CTRL-6][SPACE]7[SPACE][ 
CTRL-0] [COM-6][SPACE]data[SPACE]in 
voeren" 

330 print"[2xSPACE][CTRL-9][CTRL-6][SP 
ACE]8[SPACE] [CTRL-0] [COM-6][SPACE] 
sprite[SPACE]leegmaken":print"[CRS 
R-DOWN][2xSPACE][CTRL-9][CTRL-6][S 
PACE]t oet s[SPACE]uw[SPACE]keu ze[SP 
ACE][COM-6]" 

340 geta$:ifa$>"*"anda$<"/"thenonasc(a 
$)-42goto380,400,420, 440 
350 ifa$<"0"ora$>"8"goto340 
360 onval(a$)+lgosubl200, 80,1020, 460,4 
70, 650,830,880,920:goto270 
370 a$="":poke211,29:poke214,a:sys5873 

2:return 

380 be=be+l:ifbe>255thenbe=128 
390 goto430 

400 bm=bm-l:ifbm<128thenbm=255 
410 goto450 

420 be=be-l:ifbe<128thenbe=255 
430 a=3:gosub370:printbe:te=be*64:poke 

2043,be:goto340 

440 bm=bm+l:ifbm>255thenbm=128 

450 a=4:gosub370:printbm:tm=bm*64:poke 

2042,bm:goto340 

460 fora=tetote+62:pokea,255-peek(a):n 
ext:return 

470 a$="sprite[SPACE]verschuiven":gosu 

b210:gosub950:print"[CRSR-DOWN][SP 
ACE] (1) [2xSPACE]omhoog" 

48" print"[SPACE](2)[2xSPACE]omlaag":p 
rint"[SPACE](3)[2xSPACE]rechts":pr 
int"[SPACE](4)[2xSPACE]links":gosu 
b940 

490 geta$:ifa$<"l"ora$>"4"then490 
500 onval(a$)goto510,530,550, 600 
510 fora=0to2:a(a)=peek(d+a):next:fora 
=3to62:poked+a-3,peek(d+a):next 
520 fora=0to2:poked+60+a,a(a):next:ret 
urn 


■ 


Commodore Info 8/87 









890 

900 


j 530 fora=0to2:a(a)=peek(d+60+a):next:f 
ora=59to0step-l 

I 540 poked+a+3,peek(d+a):next:fora=0to2 

f :poked+a,a(a):next:return 

I 550 £ora=dtod+60step3:al=(peek(a)and25 
f 4)/2+(peek(a+2)andl)*128 

| 560 a2=(peek(a+1)and254)/2+(peek(a)and 

f 1)*128:pokea,al 

! 570 a3=(peek(a+2)and254)/2+(peek(a+1)a 

ndl)*128:pokea+l,a2 

I 580 pokea+2,a3:next:ifc=lthenc=0:goto5 
50 

I 590 return 

| 600 fora=dtod+60step3:al=(peek(a)andl2 

7)*2+(peek(a+1)andl28)/128 
I 610 a2=(peek(a+1)andl27)*2+(peek(a+2)a 

ndl28)/128:pokea+l,a2 

620 a3=(peek(a+2)andl27)*2+(peek(a)and 

128)/128:pokea,al 

630 pokea+2,a3:next:if c=lthenc=0 :goto6 

00 

I 640 return 

650 a$="kleuren[SPACE]veranderen[2xCRS 

R-DOWN]":gosub210 

j 660 foral=0tol :print"[3xSPACE][CTRL-9] 

";:fora=0tol5:poke646,a:print"[2xS 
PACE]";:next:print:next 
1 670 print:print"[CRSR-UP][3xSPACE][CTR 

L 9][COM-6][SPACE]0[SPACE]1[SPACE] 

2[SPACE]3[SPACE]4[SPACE]5[SPACE]6[ 
SPACE]7[SPACE]8[SPACE]910111213141 
5" 

1 680 print"[CRSR-DOWN][SPACE](1)[2xSPAC 

E]achtergrond[SPACE]kleur[SPACE]:" 

;peek(v+32)andl5 

I 690 print"[SPACE](2)[2xSPACE]sprite[SP 
ACE]kleur[6xSPACE]:";ch:print"[SPA 
CE](3)[2xSPACE] multicolor-0 [6xSPAC 
E]:";m0 

1 700 print"[SPACE](4)[2xSPACE]multicolo 
r-1[6xSPACE]:";ml:gosub940 
I 710 geta$:i£a$<"l"ora$>"4"then710 

I 720 onval(a$)goto730, 750, 770, 790 

I 730 input"[CRSR-DOWN]achtergrond[SPACE 

]kleur[SPACE](0-15)";a$:gosub810:i 
fc=lthen730 

I 740 pokev+33,val(a$):pokev+32,val(a$): 
return 

I 750 input"[CRSR-DOWN]sprite[SPACE]kleu 

r[SPACE](0-15)";a$:gosub810:ifc=lt 
hen750 

I 760 ch=val(a$):fora=lto3:pokev+39+a,ch 

:next:return 

1 770 input"[CRSR-DOWN] multicolor-0 [SPAC 

E] (0-15)";a$:gosub810:ifc=lthen770 
0 780 m0=val (a$):pokev+37,m0:return 

I 790 input"[CRSR-DOWN]multiecolor-1[SPA 

CE] (0-15)";a$:gosub810:ifc=lthen79 
0 

I 800 ml=val(a$):pokev+38,ml:return 

1 810 c=0:ifval(a$)>15orval(a$)<0thenc=l 

I :gosub930 

1 820 return 

( 830 a$="data[2xSPACE]bekijken":gosub21 

0:gosub950:print"[SHIFT-CLR]":fora 
=dtod+62 

|| 840 print","peek(a), :next:print 

I 850 print"[CRSR-DOWN][6xSPACE]raak[SPA 

CE]toets" 

860 geta$:ifa$=""then860 
jj 870 return 

|| 880 a$="data[2xSPACE]invoeren[CRSR-DOW 

|j N]":b$=a$:gosub210:gosub950:a$=b$: 

print:£ora=0to62step7 


forc=0to6:print"getal[SPACE]:"a+c, 
inputb$:b=val(b$):ifb<0orb>255then 
gosub930:goto900 

910 poked+a+c,b:next:gosub210:next:ret 
urn 

920 a$="sprite[SPACE]leeg-maken":gosub 

210:gosub950:fora=dtod+62:pokea,0: 
next:return 

930 print"[CRSR-DOWN][CTRL-2][CTRL-9]n 
iet[SPACE]toegestaan[SPACE]!![CTRL 
0][COM-6]":return 

940 print"[CRSR-DOWN][5xSPACE]toets[SP 
ACE]uw[SPACE]keuze.":return 
950 print"[2xCRSR-DOWN][SPACE](1)[2xSP 
ACE]1-kleurig":print"[SPACE](2)[2x 
SPACE]multicolor":gosub940 
960 geta$:ifa$<"l"ora$>"2"then960 
970 d=te:ifa$="2"thend=tm:c=l 
980 return 

990 poke2041,d:print"[SPACE][CTRL-6][C 

TRL 9][26xSPACE] [CTRL-0] [COM-6][3x 
SPACE]m[SPACE]=[SPACE]menu[CTRL-6] 

II 

1000 fora=0to20:print"[SPACE][CTRL-9][S 
PACE][CTRL-C][24xSPACE][CTRL-9][SP 
ACE]":next 

1010 print"[SPACE][CTRL-9][26xSPACE][HO 
ME]":x=32:y=74:pokev+21,3:b=1146:r 
eturn 

1020 print"[SHIFT-CLR][CTRL-9][SPACE]mu 
lti-color[SPACE]sprite[SPACE]maken 
[SPACE]:[3xSPACE]'francois' [CTRL-0 
]even[SPACE]geduld[SPACE]!":pokev+ 
28,2 

1030 d=bm:gosub990:d=tm:gosub250:ifc=lt 
hengosubll40 
1040 gosub70 

1050 gosubl50:geta$:i£a$="m"thenpokev+2 
8,4:return 

1060 a2=al+l:a5=a4-l:ifal/2>int(al/2)th 
ena2=al-l:a5=a4:a4=a4+l 
1070 ifa$="[SPACE]"thenpokeal,32:pokea2 
,32:pokea3,peek(a3)and255-2ïa4-2la 
5 

1080 ifa$<"[Fl]"ora$>"[F5]"thenlOSO 
1090 pokeal,160:pokea2,160:onasc(a$)-13 
2gosublll0,1120,1130 
1100 pokes+al,c:pokes+a2, c:gotol050 
1110 c=ml:pokea3,peek(a3)or2Ia5+2la4:re 
turn 

1120 c=ch:pokea3,peek(a3)and255-2la5or2 
Ïa4:return 

1130 c=m0 :pokea3,peek(a3)and255-2Ia4or2 
Ia5:return 

1140 foral=0to60step3:fora2=0to2:a=peek 
(tm+al+a2):fora4=7to0step-2 
1150 ifa>=2la4+2I(a4-l)thenc=ml:a=a-2la 
4-21 (a4-l) :gotoll90 

1160 ifa>=2la4thenc=ch:a=a-2la4:gotoll9 
0 

1170 ifa>=21(a4-l) thenc=m0 :a=a-2t(a4-l) 

:gotoll90 

1180 b=b+2:nexta4,a2:b=b+16:next:return 

1190 pokeb,160:pokeb+1,160:pokes+b,c:po 
kes+b+1,c:gotoll80 

1200 a$="uitleg[4xCRSR-RIGHT]":gosub210 
:print"[2xCRSR-DOWN][SPACE]1-kleur 
ig[SPACE]blok[SPACE] nr. [SPACE]vera 
nderen[SPACE]door" 

1210 print"[SPACE][CTRL-9]+ [CTRL-0] [SPA 
CE]en[SPACE][CTRL-9]- [CTRL-0] [SPAC 
E]toetsen.":print"[SPACE]multicolo 
r[SPACE]blok[SPACE]nr.[SPACE]veran 
deren[SPACE]door" 
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1220 print"[SPACE][CTRL-9]< [CTRL-0] [SPA 
CE]en[SPACE][CTRL-9]> [CTRL-0] [SPAC 
E]toetsen[SPACE]([CTRL-9]zonder[SP 
ACE]shift [CTRL-0] )" 

1230 print"[CRSR-DOWN][SPACE]bestuur[SP 
ACE]de[SPACE]cursor[SPACE]met[SPAC 
E]je[SPACE]joystick" 

1240 print"[CRSR-DOWN][SPACE]tijdens[SP 
ACE]het[SPACE]tekenen[SPACE]kun[SP 
ACE]j e[SPACE]met[SPACE]de[7 xSPACE] 
spatie-balk[SPACE]wissen" 

1250 print"[CRSR-DOWN][SPACE]in[SPACE]m 
ulticolor[SPACE]mode[SPACE]tekenen 
[SPACE]met[SPACE]de[7xSPACE]functi 
etoetsen[SPACE][fl-f3-f5]" 

1260 print"[SPACE]in[SPACE]1-kleurige[S 
PACE]mode[SPACE]tekenen[SPACE]met[ 
SPACE]de[7xSPACE]vuurknop":goto850 

** EINDE LISTING sprite editor ** 


REGEL 

10 

220 

REGEL 

540 

4 

REGEL 

20 

172 

REGEL 

550 

10 

REGEL 

30 

75 

REGEL 

560 

244 

REGEL 

40 

58 

REGEL 

570 

173 

REGEL 

50 

75 

REGEL 

580 

36 

REGEL 

60 

151 

REGEL 

590 

142 

REGEL 

70 

201 

REGEL 

600 

114 

REGEL 

80 

159 

REGEL 

610 

21 

REGEL 

90 

9 

REGEL 

620 

95 

REGEL 

100 

244 

REGEL 

630 

32 

REGEL 

110 

5 

REGEL 

640 

142 

REGEL 

120 

78 

REGEL 

650 

215 

REGEL 

130 

106 

REGEL 

660 

113 

REGEL 

140 

27 

REGEL 

670 

78 

REGEL 

150 

28 

REGEL 

680 

38 

REGEL 

160 

186 

REGEL 

690 

174 

REGEL 

170 

177 

REGEL 

700 

33 

REGEL 

180 

38 

REGEL 

710 

213 

REGEL 

190 

149 

REGEL 

720 

141 

REGEL 

200 

249 

REGEL 

730 

206 

REGEL 

210 

215 

REGEL 

740 

73 

REGEL 

220 

39 

REGEL 

750 

118 

REGEL 

230 

2 

REGEL 

760 

209 

REGEL 

240 

142 

REGEL 

770 

133 

REGEL 

250 

121 - 

REGEL 

780 

86 

REGEL 

260 

74 

REGEL 

790 

205 

REGEL 

270 

119 

REGEL 

800 

89 

REGEL 

280 

113 

REGEL 

810 

186 

REGEL 

290 

223 

REGEL 

820 

142 

REGEL 

300 

53 

REGEL 

830 

13 

REGEL 

310 

60 

REGEL 

840 

24 

REGEL 

320 

244 

REGEL 

850 

156 

REGEL 

330 

128 

REGEL 

860 

107 

REGEL 

340 

184 

REGEL 

870 

142 

REGEL 

350 

121 

REGEL 

880 

182 

REGEL 

360 

196 

REGEL 

890 

152 

REGEL 

370 

213 

REGEL 

900 

234 

REGEL 

380 

175 

REGEL 

910 

187 

REGEL 

390 

32 

REGEL 

920 

133 

REGEL 

400 

210 

REGEL 

930 

85 

REGEL 

410 

34 

REGEL 

940 

163 

REGEL 

420 

178 

REGEL 

950 

250 

REGEL 

430 

170 

REGEL 

960 

218 

REGEL 

440 

207 

REGEL 

970 

127 

REGEL 

450 

202 

REGEL 

980 

142 

REGEL 

460 

185 

REGEL 

990 

29 

REGEL 

470 

182 

'REGEL 

1000 

51 

REGEL 

480 

246 

REGEL 

1010 

176 

REGEL 

490 

218 

REGEL 

1020 

8 

REGEL 

500 

119 

REGEL 

1030 

2 

REGEL 

510 

44 

REGEL 

1040 

244 

REGEL 

520 

13 

REGEL 

1050 

160 

REGEL 

530 

188 

REGEL 

1060 

229 


REGEL 

1070 

64 

REGEL 

1170 

243 

REGEL 

1080 

106 

REGEL 

1180 

231 

REGEL 

1090 

140 

REGEL 

1190 

179 

REGEL 

1100 

174 

REGEL 

1200 

177 

REGEL 

1110 

56 

REGEL 

1210 

149 

REGEL 

1120 

145 

REGEL 

1220 

153 

REGEL 

1130 

131 

REGEL 

1230 

100 

REGEL 

1140 

46 

REGEL 

1240 

188 

REGEL 

1150 

243 

REGEL 

1250 

218 

REGEL 

1160 

167 

REGEL 

1260 

178 


Sprite steal 


Het volgende programma stuurde Richard van Tol 
naar ons toe. 

Het kan alle sprite’s uit het geheugen halen en op het 
scherm zetten met multicolor aan of uit. Als het de 
sprite is die je zoekt kun je de datawaarden d.m.v. fl 
op het scherm krijgen of ze uit laten printen. Als je ze 
uit laat printen kun je er een naam boven printen zo¬ 
dat je als je meerdere sprites uit laat printen weet wel¬ 
ke wat voorstelt. Het werkt als volgt: een programma 
inladen en runnen, druk dan op je reset knop, laadt 
sprite stealer en run het. Nu kun je alle gebieden 
langs. Het programma werkt ook met een powercar- 
tridge. 

10 dim s(64) 

20 gosub 660 

30 poke53281, 246:poke53280,254:poke64 

6, 14 

40 print"[SHIFT-CLR]" 

50 poke53271,0:poke53277, 0 

60 for a=0to 255 

70 poke2040,a 

80 poke53248, 155 

90 poke53249,120 

100 poke53287,0 

110 poke53269,2t0 

120 poke53271,2l0 

130 poke53277,2l0 

140 print"[HOME][CTRL-9][SPACE]";a;"[S 

PACE] [CTRL-0] " 

150 get c$:if c$="" then 150 

160 if c$="m" then poke53276,peek(5327 

6) or 2l0:a=a-l 

170 if c$="u" then poke53276,peek(5327 

6) and 255-2Ï0:a=a-l 
180 if c$=chr$(133) then 240 

190 next a 

200 print"[SHIFT-CLR][CRSR-DOWN][SPACE 

]je[SPACE]hebt[SPACE]elk[SPACE]geb 
ied[SPACE]bekeken":end 
210 rem***************************** 

220 rem****data regels berekenen**** 

230 rem***************************** 

240 y=a*64:t=0 

250 for x=y to y+62 

260 t=t+l 

270 s(t)=peek(x) 

280 next x 

290 printchr$(147) 

300 print"[2xCRSR-DOWN][2xCRSR-RIGHT]w 

il[SPACE]je[SPACE]de[SPACE]data[SP 
ACE]waarden:" 

310 print:print"op[SPACE][CTRL-9]s[CTR 

L 0]cherm[SPACE]of[SPACE]van[SPACE 
]de[SPACE][CTRL-9]p[ CTRL-0 ]rinter" 

320 get c$:if c$="s" then 520 

330 if c$="p" then 350 

340 goto320 

350 rem***************************** 


II 
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iO rem**** data regels printen **** 

'0 rem ***************************** 

10 print chr$(147):b=l 
10 inpufnaam [SPACE] sprite" ; n$ 

iO poke53269, 0 

.0 open 4,4 

10 print#4,chr$(14);n$;chr$(15) 

10 s$="[SPACE]":k$=", " 

:0 for z=l to 9 
10 print#4,regel;s$;"data"; 

10 print#4,d$;s(b);s$;k$;s(b+1);s$;k$ 

;s(b+2);s $;k$;s(b+3);s$;k$;s(b+4); 
s$;k$; 

0 print#4,s(b+5);s$;k$;s(b+6) 

!0 regel=regel+10 
10 b=b+7 

i0 next z 
.0 close4 

!0 r em***************************** 

10 rem**** data regels op scherm*** 

10 r em***************************** 

iO print chr$(147) 
iO poke53269,0:b=l:regel=1000 
'0 for z=l to 9 

10 print "[CRSR-LEFT]"regel"[SPACE]"; 
10 print"data[SPACE]";s(b)”,"s(b+1)", 
"s(b+2)","s(b+3)","s(b+4)","s(b+5) 
","s (b+6) 

)0 regel=regel+10 
.0 b=b+7 

! 0 next z 

10 print"[CRSR-DOWN][SPACE]druk[SPACE 
]een[SPACE]toet s[SPACE]om[SPACE]ve 
rder[SPACE]te[SPACE]gaan" 

10 get c$:ifc$="" then 640 
>0 printchr$(147):nexta 
Ï0 rem*******title screen********* 

'0 printchr$(147) 

10 poke53280,0:poke53281,0:poke646, 1 

>0 print"[8xSPACE]O[23xCOM-Y]P" 

)0 print"[8xSPACE][COM-G][5xSPACE]spr 
ite[SPACE]stealer[4XSPACE][COM-M]" 
.0 print"[8xSPACE][COM-G][23xSPACE][C 
OM M] " 

>0 print"[8xSPACE][COM-G][9xSPACE]doo 
r[lOxSPACE][COM-M]" 

iO print"[8xSPACE][COM-G][SPACE]richa 
rd[7xSPACE]van[SPACE]tol[SPACE][CO 
M M] " 

10 print"[8xSPACE]L[23xCOM-P][SHIFT-' 
]" 

50 print"[3xCRSR-DOWN][9xSPACE][CTRL- 
9][CTRL-2][SPACE]f-1[SPACE] [CTRL-0 
][SPACE]voor[SPACE]data[SPACE]waar 
den" 

50 print"[CRSR-DOWN][9xSPACE][CTRL-9] 
[CTRL-2][2xSPACE]m[2xSPACE] [CTRL-0 
][SPACE]multicolor[SPACE]aan" 

W print"[CRSR-DOWN][9xSPACE][CTRL-9] 
[CTRL-2][2xSPACE]u[2xSPACE] [CTRL-0 
][SPACE]multicolor[SPACE]uit" 

30 print"[6xCRSR-DOWN][llxSPACE]tolso 
ft[SPACE]inc.[SPACE]1987" 

30 getc$:ifc$="" then 790 

30 return 

EINDE LISTING sprite steal ** 


REGEL 

10 

148 

REGEL 

70 

202 

REGEL 

20 

41 

REGEL 

80 

100 

REGEL 

30 

254 

REGEL 

90 

93 

REGEL 

40 

112 

REGEL 

100 

252 

REGEL 

50 

42 

REGEL 

110 

220 

REGEL 

60 

228 

REGEL 

120 

213 


REGEL 

130 

219 

REGEL 470 

26 

REGEL 

140 

143 

REGEL 480 

155 

REGEL 

150 

103 

REGEL 490 

23 

REGEL 

160 

202 

REGEL 500 

220 

REGEL 

170 

24 

REGEL 510 

212 

REGEL 

180 

144 

REGEL 520 

81 

REGEL 

190 

195 

REGEL 530 

242 

REGEL 

200 

94 

REGEL 540 

81 

REGEL 

210 

81 

REGEL 550 

77 

REGEL 

220 

74 

REGEL 560 

119 

REGEL 

230 

81 

REGEL 570 

155 

REGEL 

240 

210 

REGEL 580 

104 

REGEL 

250 

243 

REGEL 590 

77 

REGEL 

260 

53 

REGEL 600 

155 

REGEL 

270 

21 

REGEL 610 

23 

REGEL 

280 

218 

REGEL 620 

220 

REGEL 

290 

77 

REGEL 630 

159 

REGEL 

300 

147 

REGEL 640 

107 

REGEL 

310 

128 

REGEL 650 

74 

REGEL 

320 

187 

REGEL 660 

113 

REGEL 

330 

119 

REGEL 670 

77 

REGEL 

340 

30 

REGEL 680 

243 

REGEL 

350 

81 

REGEL 690 

237 

REGEL 

360 

219 

REGEL 700 

16 

REGEL 

370 

81 

REGEL 710 

41 

REGEL 

380 

172 

REGEL 720 

93 

REGEL 

390 

106 

REGEL 730 

250 

REGEL 

400 

252 

REGEL 740 

28 

REGEL 

410 

51 

REGEL 750 

191 

REGEL 

420 

219 

REGEL 760 

190 

REGEL 

430 

56 

REGEL 770 

232 

REGEL 

440 

155 

REGEL 780 

79 

REGEL 

450 

237 

REGEL 790 

113 

REGEL 

460 

126 

REGEL 800 

140 


Wissel 


Van een van onze vaste inzenders, Fons Reijsber- 
gen, het volgende programma. Het programma be¬ 
staat uit twee delen. Deel één is kleurwisseling. Op 
een bord staan twee kleuren letters 12 keer een zwar¬ 
te ‘z’ en 12 keer een witte ‘w’. Het is de bedoeling dat 
deze letters van plaats wisselen via een open vakje 
en dat natuurlijk in zo min mogelijk beurten. 

Het tweede spel is woordkruising en hier gaat er om 
een woord van elf letters door u zelf ingegeven van 
een horizontale lijn naar een vertikale lijn te verplaat¬ 
sen, natuurlijk ook weer in zo min mogelijk beurten. 

10 rem schuiven / cbm 

20 rem door fons reijsbergen 

30 rem leidschendam/ 070-278619 

40 rem 

50 gotol550 

60 rem*******woord kruising 

70 poke53280,0:poke53281,0:poke53272, 

23 

80 print"[SHIFT-CLR][CTRL-4]WOORD[SPA 

CE]KRUISING[lOxSPACE]WOORD[SPACE]K 
RUISING[COM-6]" 

90 print"[2xCRSR-DOWN]Dit[SPACE]spel[ 

SPACE]word[SPACE]gespeelt[SPACE]in 
[SPACE]een[SPACE]vierarmigevorm."; 

100 print"De[SPACE]lange[SPACE]armen[S 

PACE]bevatten[SPACE]acht[SPACE]vak 
jesde[SPACE]korte[SPACE]armen[SPAC 
E]twee[SPACE]en[SPACE]er[SPACE]is" 

110 print"[SPACE]een[SPACE]vakje[2xSPA 

CE]op[SPACE]de[SPACE]kruising." 

120 print"[CRSR-DOWN]Kies[SPACE]een[SP 

ACE]woord[SPACE]van[SPACE]11[SPACE 


mi 


I nfoSiS? 



























] letters[SPACE]en[SPACE]plaats[SPA 
I CE]een[SPACE]letter[SPACE]op[SPACE 

]elk[SPACE]vakje"; 

| 130 print"[SPACE]zodat[SPACE]het[SPACE 
I ]woord[SPACE]op[SPACE]de[SPACE]jui 

ste[SPACE]wijze[SPACE]van[SPACE]li 
nks[SPACE]naar[SPACE]rechtsis[SPAC 
| E]gespeld." 

I 140 print"[CRSR-DOWN]Schuif[SPACE]dan[ 
I SPACE]de[SPACE]vakjes[SPACE]in[SPA 

CE]zo[SPACE]min[SPACE]mogelijk[SPA 
I CE]zetten[SPACE]in[SPACE]de[SPACE] 

I andere"; 

t 150 print"[SPACE]arm[SPACE]van[SPACE]d 

e[SPACE]vorm,[SPACE]zo-dat[SPACE]h 
| et[SPACE]woord[SPACE]van[SPACE]bov 

en[SPACE]naar[SPACE]beneden"; 

't 160 print" [SPACE] op [SPACE] de [SPACE] jui 
ste[SPACE]wijze[SPACE]gespeld[SPAC 
I E]is." 

I 170 print"[CRSR-DOWN]Met[SPACE]de[SPAC 

E]KURSUR[SPACE]toetsen[SPACE]wij s[ 
SPACE]je[SPACE]de[SPACE]letter[SPA 
CE]aan[SPACE]die[SPACE]verplaatst[ 
SPACE]dient"; 

1 180 print"[SPACE]te[SPACE]worden, [SPAC 

E]een[SPACE]druk[SPACE]op[SPACE]Re 
turn[SPACE]voert[SPACE]de[SPACE]ze 
t[SPACE]uit." 

1 190 gosub880 

I 200 print"[2xCRSR-DOWN]Als[SPACE]de[SP 

ACE]letter[SPACE]op[SPACE]de[SPACE 
]kruising[SPACE]staat[SPACE]moet[S 
PACE]j e[SPACE]na[SPACE]RETURN[SPAC 
E]aangeven"; 

I 210 print"[SPACE]welke[SPACE]richting[ 

SPACE]j e[SPACE]op[SPACE]wilt[SPACE 
]met[SPACE]die[SPACE]letter, [SPACE 
]dit[SPACE]doe[SPACE]je[SPACE]mbv. 

I 220 prinf'de[SPACE]kursur[SPACE]toetse 

I n. " 

I 230 print"[CRSR-DOWN]Het[SPACE]kleinst 

[SPACE]mogelijk[SPACE]aantal[SPACE 
]zetten[SPACE]hangtvolledig[SPACE] 
af [SPACE]_van [SPACE] de [SPACE] woord" 

I 240 print"keuze." 

| 250 print"[2xCRSR-DOWN]Geef[SPACE]nu[S 

PACE]een[SPACE]woord[SPACE]van[SPA 
CE]11[SPACE]letters.[3xCRSR-DOWN]" 

| 260 pokel98,0:pokel9,64 

I 270 print"[CRSR-DOWN] [8xSPACE]. 

...[2xCRSR-UP]":input"[8xSPACE]";a 
$:print"[CRSR-UP]":pokel9,0 
1 280 iflen (a$) Ollthen260 

ij 290 gosub890 

| 300 rem*****teken speelveld 

I 310 print"[3xCRSR-DOWN]"tab(26)"[CTRL- 

3]HET[SHIFT-SPACE]WOORD[CRSR-DOWN] 
[COM-3]":printtab(25)a$ 

| 320 print"[3xCRSR-DOWN]"tab(25)"[COM-1 

]ZET[SPACE]nr." 

| 330 p$="[SHIFT--][SPACE][SHIFT--][CRSR 

-DOWN][3xCRSR-LEFT][COM-Q][SHIFT-* 

][COM-W][CRSR-DOWN][3xCRSR-LEFT]" 

| 340 print"[HOME][COM-7]"tab(17)"[COM-A 

][SHIFT-*][COM-S][CRSR-DOWN][3xCRS 
R-LEFT]";;fori=lto7:printp$;:next: 
print"[SHIFT—][SPACE][SHIFT—]" 

| 350 print"[SPACE][COM-A][SHIFT-*][COM- 

R][SHIFT-*][COM-R][SHIFT-*][COM-R] 
[SHIFT-*][COM-R][SHIFT-*][COM-R][S 
HIFT *][COM-R][SHIFT-*][COM-R][SHI 


FT *] [SHIFT—h] [SHIFT-*] [SHIFT- + ] [S 
HIFT *][COM-R][SHIFT-*][COM-S]" 

360 print"[SPACE][SHIFT—][SPACE][SHIF 
T -][SPACE][SHIFT--][SPACE][SHIFT- 
-][SPACE][SHIFT--][SPACE][SHIFT--] 
[SPACE][SHIFT--][SPACE][SHIFT--][S 
PACE][SHIFT--][SPACE][SHIFT--][SPA 
CE][SHIFT—][SPACE][SHIFT—]" 

370 print"[SPACE][COM-Z][SHIFT-*][COM- 
E][SHIFT-*][COM-E][SHIFT-*][COM-E] 
[SHIFT-*][COM-E][SHIFT-*][COM-E][S 
HIFT *][COM-E][SHIFT-*][COM-E][SHI 
FT *] [SHIFT-+] [SHIFT-*] [SHIFT—h] [S 
HIFT *][COM-E][SHIFT-*][COM-X]" 

380 printtab(17);:fori=lto2:printp$;:n 
ext:print"[CRSR-UP][COM-Z][SHIFT-* 
][COM-X][3xCRSR-UP]"; 

390 rem*****set up varia 
400 dima$(12),b$(12),c$(12):p$=".":x=9 
:y=9:z=0 

410 fori=ltoll:a$(i)=mid$(a$,i,1):c$(i 
)=a$(i):b$(i)=p$:next 
420 rem*****kontrolle 

430 ifa$(9)=p$andb$(9)<>p$thena$(9)=b$ 

(9) 

440 ifb$(9)=p$anda$(9)<>p$thenb$(9)=a$ 
(9) 

450 f=l:fori=ltoll;ifb$(i)<>c$(i)thenf 
=0 

460 next:iff=lthen910 

470 print"[HOME][10xCRSR-DOWN]"tab(32) 
z:z=z+l 

480 rem*****print woord 

490 print"[HOME]"chr$(158):fori=ltoll: 

printtab(18)b$(i)"[CRSR-DOWN]";nex 
t:print"[6xCRSR-UP][CRSR-RIGHT]"; 
500 fori=ltoll:print"[CRSR-RIGHT]"a$(i 
);:next:print"[5xCRSR-LEFT]";:x=9: 
y=9 

510 rem* * * * *input kursur 
520 geta$ 

530 ifx=9thenprinta$(y)"[CRSR-LEFT]"; 
540 ify=9thenprintb$(x)"[CRSR-LEFT]" ; 
550 gosub870 

560 ifa$="[CRSR-LEFT]"andx=9andy>lthen 
y=y-l:print"[2xCRSR-LEFT]";:ifa$(y 
)=p$andy<>9then560 

570 ifa$="[CRSR-RIGHT]"andx=9andy<llth 
eny=y+l:print"[2xCRSR-RIGHT]";:ifa 
$ (y)=p$andy<>9then570 
580 ifa$="[CRSR-UP]"andy=9andx>lthenx= 
x-1:print"[2xCRSR-UP]";:ifb$(x)=p$ 
andx<>9then580 

590 ifa$=”[CRSR-DOWN]"andy=9andx<llthe 

nx=x+l:print"[2xCRSR-DOWN]"; :ifb$ ( 
x)=p$andx<>9then580 

600 ifx=9thenprint"[CTRL-9]"a$(y)"[CRS 
R-LEFT]"; 

610 ify=9thenprint"[CTRL-9]"b$(x)"[CRS 
R-LEFT]"; 

620 gosub870:print"[CTRL-0]" ; 

630 ifasc(a$+"[SPACE]")<>13then520 
640 ifx=9andy=9anda$(y)Op$then790 
650 ifx=9then730 
660 rem*****schuif op x as 
670 ifb$(x-1)=p$then700 
680 ifb$(x+1)=p$andx<>9thenb$(x+1)=b$( 
x) :b$ (x)=p$:x=x+l:goto680 
690 goto430 

700 ifb$(x-1)=p$andx<>9thenb$(x-1)=b$( 
x) :b$ (x)=p$:x=x-l:goto700 
710 goto430 

720 rem*****schuif op y as 
730 ifa$(y-1)=p$then760 
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740 


750 

760 


770 

780 

790 

800 

810 


820 


830 


840 


850 


860 


870 

880 


890 


900 

910 


1 920 

I 930 
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ifa$(y+1)=p$andy<>9thena$(y+1)=a$( 
y):a$(y)=p$:y=y+l:goto740 
goto430 

ifa$(y-1)=p$andy<>9thena$(y-1)=a$( 
y) :a$(y)=p$:y=y-l:goto7 60 
goto430 

rem*****bepaal welke richting 
print"[2xCRSR-DOWN]"chr$(5) 
geta$ 

print"[2xSPACE]Welke[SPACE]kant[SP 
ACE]op[SPACE]?[CRSR-UP]":gosub870: 
print"[17 xSPACE] [CRSR-UP]":gosub87 
0 

ifa$="[CRSR-UP]"andb$(8)=p$thenb$( 
8)=b$(x):b$(x)=p$:a$(x)=p$:x=8:got 
o700 

ifa$="[CRSR-DOWN]"andb$(10)=p$then 
b$(10)=b$(x):b$(x)=p$:a$(x)=p$:x=l 
0:goto680 

ifa$="[CRSR-RIGHT]"anda$(10)=p$the 
na$ (10) =a$ (y) : a$ (y) =p$ : b$ (y) =p$ : y= 
10:goto740 

ifa$="[CRSR-LEFT]"anda$(8)=p$thena 
$(8)=a$(y):a$(y)=p$:b$(y)=p$:y=8:g 
oto7 60 

print"[SPACE][CTRL-9][SPACE]Welke[ 

SPACE]kant[SPACE]op[SPACE][CTRL-0] 

?[CRSR-UP]":goto800 

fori=lto50:next:return 

print"[2xCRSR-DOWN][COM-3][3xSPACE 

]DRUK[SPACE]OP[SPACE]EEN[SPACE]TOE 

TS[COM-6]":waitl97,191 

print"[SHIFT-CLR][CTRL-4]WOORD[SPA 

CE]KRUISING[lOxSPACE]WOORD[SPACE]K 

RUISING[COM-6]":return 

rem*****gelukt 

print"[HOME]":fori=ltol6:print"[CR 
SR-DOWN]";:next:printtab(18)b$(9)" 
[HOME][CRSR-DOWN][CTRL-8]" 
fori=lto20:print"[17xSPACE][3xCRSR 
-RIGHT][19xSPACE]":next 
print"[HOME][4xCRSR-DOWN][SPACE]GE 
WELDIG[SPACE]HET[SPACE]IS[SPACE][3 
xCRSR-RIGHT][SPACE]JE[SPACE]GELUKT 


1100 


1110 


1120 

1130 


1140 


1150 


1160 


1170 

1180 

1190 

1200 

1210 


T *][COM-R][SHIFT-*][COM-R][SHIFT- 
*][COM-R][SHIFT-*][COM-R][SHIFT-*] 
[COM-S][SHIFT--]" 

fori=lto5:printtab(13)"[2xSHIFT--] 
[SPACE] [SHIFT--] [SPACE] [SHIFT—] [S 
PACE][SHIFT--][SPACE][SHIFT--][SPA 
CE][2xSHIFT--]":printtab(13)"[SHIF 
T -][COM-Q][SHIFT-*][SHIFT-+][SHIF 
T *] [SHIFT—h] [SHIFT-*] [SHIFT—H] [SH 
IFT *][SHIFT-+][SHIFT-*][COM-W][SH 
IFT -]":next 

printtab (13) " [CRSR-UP] [SHIFT—] [CO 
M Z][SHIFT-*][COM-E][SHIFT-*][COM- 
E][SHIFT-*][COM-E][SHIFT-*][COM-E] 
[SHIFT-*][COM-X][SHIFT--]" 
printtab(13)"[COM-Z][llxSHIFT-*][C 
OM X] " 

print"[CRSR-DOWN][COM-8][SPACE]De[ 
SPACE]bedoeling[SPACE]is[SPACE]dat 
[SPACE]de[SPACE][CTRL-2]witte[SPAC 
E]W's[COM-8][SPACE]in[SPACE]zo[2xS 
PACE]weinig[SPACE]mogelijk[SPACE]z 
etten"; 

print"[SPACE]van[SPACE]plaats[SPAC 
E]ver-[2xSPACE]wisselen[SPACE]met[ 
SPACE]de[SPACE][CTRL-1]zwarte[SPAC 
E]Z's[COM-8],[SPACE]waarbij[SPACE] 
de"; 

print"[2xSPACE]zetten[SPACE]worden 
[SPACE]gedaan[SPACE]als[SPACE]n[SP 
ACE]paardsprong[2xSPACE]bij[SPACE] 
een[SPACE]schaakspel." 
print"[SPACE]Gebruik[SPACE]de[SPAC 
E]kursur[SPACE]en[SPACE]de[SPACE]r 
eturn[SPACE]toetsen" 
print"[HOME][6xCRSR-DOWN][CTRL-2][ 
SPACE]ZET[SPACE]NR[CTRL-1]" 
print"[2xCRSR-DOWN]Verwisselen" 
int"in[SPACE]50[SPACE]zetten" 
prinfis [SPACE] erg [SPACE] goed." 
int"In[SPACE]4 5[SPACE]zetten" 
prinfis [SPACE] haast [SPACE] on-" 
int"mogelijk." 
rem****** print stukken 


1 :pr 


' :pr 


1 : pr 


[SPACE]IN[CRSR-DOWN][CTRL-8]" 

I 940 printtab(23)z "ZETTEN[COM-1]" 

| 950 print"[3xCRSR-DOWN][SPACE]Wil[SPAC 

E]je[SPACE]het[SPACE]nog[2xSPACE][ 
3xCRSR-RIGHT][SPACE]een[SPACE]keer 
[SPACE]proberen[SPACE]?" 

| 960 print"[2xCRSR-DOWN][SPACE]toets[SP 
ACE]J[SPACE]Of[SPACE]N" 

1 970 geta$:ifa$="j"goto70 

I 980 ifa$="n"thenl550 

j 990 goto970 

1 1000 rem*******kleur wisseling 

1 1010 poke53281,8:poke53280,9:poke53272, 

23:print"[SHIFT-CLR]" 

1020 rern******* set up 

[ 1030 dima(6,6),b(6,6):x=l:y=0:z=y:fori= 

0to3:reada$(i):next:fori=lto8:read 
k(i):next 

1040 fora=ltoy:a(x, a)=2:b(x,a)=1:next:y 
=y+l-(y=2):fora=yto5:a(x,a)=1:b(x, 

I a) =2 

1050 next:x=x+l:ifx<6thenl040 
I 1060 rem****** print speel veld 

1070 printtab(12)"[CTRL-2]KLEUR[SPACE]W 
I[CTRL-1]SSELING":printtab(12) 

"[CTRL-1][8xSHIFT-*][CTRL-2][7 
xSHIFT-*]" 

1 1080 printtab(13)"[CTRL-8][CRSR-DOWN][C 
OM A][llxSHIFT-*][COM-S]" 

1090 printtab (13) " [SHIFT—] [COM-A] [SHIF 


1220 print”[HOME][6xCRSR-DOWN][CTRL-1]" 
tab(8);z;tab(15); 

1230 fori=lto5:forj=lto5:printa$(a(i, j) 

)"[2xCRSR-RIGHT]";:next:print;prin 
t:printtab(15);:next 
1240 print"[6xCRSR-UP][4xCRSR-RIGHT]";: 

x=3:y=x:ifok$="ok"thenl430 
1250 rem****** input 

1260 geta$:printa$(a(y,x));:gosubl520 
1270 ifa$="[CRSR-LEFT]"andx>lthenx=x-l: 
print"[2xCRSR-LEFT] 

1280 ifa$="[CRSR-RIGHT]"andx<5thenx=x+l 
:print"[2xCRSR-RIGHT]"; 

1290 ifa$="[CRSR-DOWN]"andy<5theny=y+l: 

print"[2xCRSR-DOWN]"; 

1300 ifa$="[CRSR-UP]”andy>ltheny=y-l :pr 
int"[2xCRSR-UP] 

1310 ifa$=chr$(13)thenl340 
1320 printa$(3);:gosubl520:gotol260 
1330 rem****** doe zet 

1340 kl=7:k2=l:ifa(y,x)=0thenl260 
1350 xl=x+k(kl):yl=y+k(k2):ifxl<lorxl>5 
oryl<loryl>5thenl370 

1360 ifa(yl,xl) =0thena (yl,xl)=a(y,x):a( 
y,x)=0:z=z+l:gotol400 
1370 kl=kl+l- (8and (kl=8)):k2=k2+l:ifk2< 
9thenl350 
1380 gotol260 
1390 rem****** wissel ? 

1400 ok$="ok";fori=lto5;forj=lto5;ifa(i 
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,j)<>b(i,j)thenok$="" 
nextj,i:gotol220 
rem****** gewonnen 

print"[SHIFT-CLR][CRSR-DOWN]";tab( 
12)"[CTRL-2]KLEUR[SPACE]Hl[CTRL-1] 
SSELING":printtab(12) "[CTR 

L 1][8xSHIFT-*][CTRL-2][7xSHIFT-*] 

ifz>4 9andz<55thenprint"[2xCRSR-D0W 
N]ZEER[SHIFT-SPACE]GOED[SPACE]GEDA 
AN[SPACE]!!!" 

ifz<50thenprint"[2xCRSR-D0WN]ZEER[ 
SHIFT-SPACE]GOED[SPACE JGEDAAN. [SPA 
CE]HET[SPACE]KON[SPACE]NIET[SPACE] 
BETER[SPACE]!!!" 

print"[2xCRSR-D0WN][2xSPACE]Het[SP 
ACE]is[SPACE]je[SPACE]geluk[SPACE] 
in"z"zetten." 

print"[2xCRSR-D0WN][2xSPACE]Wil[SP 
ACE]je[SPACE]nog[SPACE]een[SPACE]p 
oging[SPACE]wagen[SPACE]?[SPACE](j 
/n) " 

geta$:ifa$="j"gotolOlO 

ifa$="n"gotol550 

gotol480 

rem****** subroutines+data 

fori=lto30:next:return 

data"[SPACE][CRSR-LEFT]","[CTRL-1] 


Z[CRSR-LEFT]","[CTRL-2]W[CRSR-LEFT 
]","[CTRL-8]*[CRSR-LEFT]" 

540 data-2,-1,1,2,2,1,-1,-2 
550 poke53280,0:poke53281,0:poke53272, 

23 

560 print"[SHIFT-CLR][CTRL-4]SCHUIVEN[ 
7xSPACE]SCHUIVEN[7xSPACE]SCHUIVEN[ 
COM-6]" 

570 print"[3xCRSR-DOWN][SPACE]Dit[SPAC 
E]programma[SPACE]bestaat[SPACE]ui 
t[SPACE]twee[SPACE]delen." 

580 print"[4xCRSR-DOWN][6xSPACE][1][2x 
SPACE]KLEURWISSELING" 

590 print"[2xCRSR-DOWN][6xSPACE][2][2x 
SPACE]WOORD-KRUISING" 

500 print"[4xCRSR-DOWN][COM-3]Welk[SPA 
CE]dee1[SPACE]kie s[SPACE]j e, [SPACE 
]een[SPACE]o f[SPACE]twee[SPACE]?" 
510 geta$:ifa$="2"then70 
520 ifa$="l"thenl010 
530 gotol610 
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REGEL 

10 
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REGEL 

460 

177 

REGEL 

910 
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REGEL 

1360 

101 

REGEL 

20 

41 

REGEL 

470 

160 

REGEL 

920 

221 
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1370 

126 
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30 

36 

REGEL 

480 

121 

REGEL 

930 

113 
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1380 

82 
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40 

143 
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490 

129 
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940 

195 
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1390 

161 
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50 

84 
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500 

59 
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60 
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70 
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80 
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90 
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69 
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70 
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67 

REGEL 
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142 
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238 
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140 

170 
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64 
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196 
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150 

99 
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600 

143 
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107 
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1500 

86 
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160 

48 
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144 
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51 
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170 

103 
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16 
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1070 
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1520 

56 
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180 

170 
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630 
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1080 

90 
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1530 

153 
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190 

45 
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640 

158 

REGEL 

1090 

173 
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1540 

247 
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200 

124 

REGEL 

650 

15 

REGEL 

1100 

252 

REGEL 

1550 

138 
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210 

42 

REGEL 

660 

174 

REGEL 

1110 

70 
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1560 

215 

REGEL 

220 

162 

REGEL 

670 

218 

REGEL 

1120 

183 

REGEL 

1570 

216 

REGEL 

230 

201 

REGEL 

680 

216 

REGEL 

1130 

1 
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1580 

66 
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240 

143 

REGEL 
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32 
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1140 

198 
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1590 

141 
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103 
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1150 

79 
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76 

REGEL 
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102 
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32 
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1160 
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128 
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9 
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8 
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46 
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740 
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1190 
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300 

124 
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750 

32 
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1200 

75 
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194 
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760 

221 
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1210 

61 
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73 
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32 
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18 
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20 
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790 

76 
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350 

193 
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6 

REGEL 

1250 
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57 

REGEL 
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230 
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200 
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69 
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221 
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195 
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830 

71 
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101 

REGEL 
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81 
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1290 

65 
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850 

88 
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248 
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860 

113 
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1310 

141 
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27 

REGEL 

870 

58 

REGEL 

1320 

216 
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79 

REGEL 

880 

158 

REGEL 

1330 

86 




REGEL 

440 

79 

REGEL 

890 

94 

REGEL 

1340 

133 




REGEL 

450 

15 

REGEL 

900 

45 

REGEL 

1350 

232 
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prijsvraag ** prijsvraag ** prijsvraag 


D oe iets leuks met uw compuier- 
hobby en zendt uw zelfgemaakte 
programma in. 


PRIJSVRAAG voorwaarden: 

° maximale lengte van het program¬ 
ma 150 regels. 

Inzendingen voor serieuze toepas¬ 
singen mogen wat groter van lengte 
zijn. 

° Alleen originele programma’s mo¬ 
gen worden ingezonden, de inzen¬ 
der blijft hiervoor verantwoordelijk! 
Inzending alleen op een magnetisch 
medium (cassette of diskette). 

° Geen inzendingen die u ook naar 
andere bladen stuurt of heeft ge¬ 
stuurd. 


Zo kunt u winnen: 

1) Als beste inzender in uw catogorie. 

2) Wanneer we uw programma goed 
genoeg vinden om te publiceren. In 
dat geval krijgt u daarvoor een ver¬ 
goeding uitgekeerd. 

Wat mag het zijn? 

Utilities, spelletjes, doe-programma’s 
en programma’s voor serieuze toe¬ 
passingen. 

"Iedere 10e inzender ontvangt een 
verrassing!! 


Wat is er te winnen: 

0 Een kleuren monitor. 

0 Een monochrome monitor.. 

0 Een diskdrive 

0 Een groot aantal prachtige software 
pakketten. 

Als extra hebben we een catagorie 
voor de mooiste, beste en voor een 
groot publiek intressante hardware- 
aanpassing. Het moet voor iedereen 
die geen twee linkerhanden heeft na 
te maken zijn. Inzendingen moeten 
naast een goed bouwschema ook een 
materiaallijst bevatten. 

Het ontwerp bijsluiten hoeft niet (mag 
wel) als het nodig is nemen wij daar 
kontakt met u over op. 

N.B. Door inzending stemt men toe in 
publicatie, ook inelektronische vorm. 
De vergoeding bij plaatsing wordt 
door de redaktie bepaald. Inzenders 
krijgen na ontvangst van hun inzen¬ 
ding van ons een andere cassette of 
diskette toegestuurd, dus hou zelf een 
kopie van het programma. 
Inzendingen : PB 112, 1260 AC Blari- 
cum o.v.v. "PRIJSVRAAG Commo¬ 
dore". 


MISSERS 

Powerboot 

In het programma Powerboor uit 
ons vorige nummer, moet u ver¬ 
vangen: In de regels 5,11 en 17 
het woord PUDEF door SAFE. 
En in regel 6 CATALOG door 
DIR. Het golfje dat in regel 10 
voorkomt is het kwadraatpijltje. 
(naast de P toets). 


Kleine Solitair 

Door de maker van het program¬ 
ma werden we er op gewezen 
dat in de regels 550 en 610 na 
Q=B-C en na Q=B+C moet 
staan: :GOSUB160 
Zonder deze subroutine kun je 
naar een hokje springen waar 
een balletje in zit, en dit is na¬ 
tuurlijk niet de bedoeling. 


Duo-Bal 

In het programma Duo-bal is 
een regel nummer weggevallen. 
Na regel 500 staat er alleen de 
tekst van regel 510. Als u hier¬ 
voor regelnummer 510 toevoegt 
werkt het geheel prima. 


Sluitingsdatum: 15 februari 1988 

Etiketten 128 


rem tel.03/886.91.26 


Hij geeft zelf het goede voorbeeld en stuurde een 
paar listings in. Waarvan hier de eerste. Het program¬ 
ma is geschreven voor de combinatie: Commodore 
128, Star NI-10 printer en een 80 koloms monitor. Als 
u een andere printer heeft zult u (waarschijnlijk) een 
aantal zaken moeten aan passen. U moet eerst de 
grootte van het etiket opgeven, dan de tekst invoeren. 
Er kan voor elke regel een apart lettertype worden 
gekozen. Bij het afdrukken worden de zinnen automa¬ 
tisch gecentreerd. 


etiket 128 
21 juli 1987 

voor commodore 128 
en printer : star nl-10 

peter schelkens 
ringlaan 138 
2660willebroek 
belgie 


rem dimensionering tabellen 
rem 

dim ch$ (7) , cc (7) , fc (7) , a$ (7) 
dim zn$(100),k (100),sp (100),zz$ (10 
0 ) 

rem 

rem scherm-initialisatie 


print chr$(147) 
color 5,6 

char 1,30,0,"e[SPACE]t[SPACE]i[SPA 

CE]k[SPACE]e[SPACE]t[2xSPACE]1[SPA 

CE]2[SHIFT-SPACE]8" 

char 1,27,2,"(c)[SPACE]1987[SPACE] 

peter[SPACE]schelkens" 

window 5,5,74,24 

color 5,3 

char 1,0,0,"O" 

char 1,68,0,"P" 

char 1,68,19," [SHIFT-0] " 

char 1,0,19,"L" 

for x=l to 67 

char l,x,0,"[COM-Y]" 

char l,x,19,"[COM-P]" 
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360 

next x 

1000 

for t=l to ar 

370 

for x=l to 18 

1010 

char 1,5,4+t,zz$(t) 

380 

char 1,0,x,"[COM-G]" 

1020 

next t 

390 

char 1, 68, x,"[COM-N]" 

1030 

next y 

400 

next x 

1040 

rem 

410 

window 7,6,71,23 

1050 

rem printen 

420 

rem 

1060 

rem 

430 

rem grootte etiket 

1070 

scnclr 

440 

rem 

1080 

openl,4 

450 

char 1,18,6,"" 

1090 

char 1,22,6,"1.[SPACE]Pica" 

460 

input"aantal[SPACE]kolommen[SPACE] 

1100 

char 1,22,7,"2.[SPACE]Near[SPACE]L 


(in[SPACE]pica)[SPACE]";ak 


etter[SPACE]Quality" 

470 

char 1,18,8,"" 

1110 

char 1,22,8,"3.[SPACE]Near[SPACE]L 

480 

input"[CRSR-DOWN]aantal[SPACE]rege 


etter[SPACE]Quality[SPACE]+[SPACE] 


ls[13xSPACE]";ar 


Italic" 

4 90 

scnclr 

1120 

getkey a$ 

500 

rem 

1130 

if a$="2" or a$="3" then print#l,c 

510 

rem opstellen keuze menu 


hr$(27);chr$(120);chr$(49); 

520 

rem 

1140 

if a$="3" then print#l,chr$(27);ch 

530 

data "Proportional",2 ,1.05 


r$(52) ; 

540 

data "Elite[7xSPACE]", 1 ,1.27 

1150 

for x=l to ar 

550 

data "Condensed[3xSPACE]",4 ,1.78 

1160 

pm = k(x):if pm-128>=0then pm=pm- 

560 

data "Emphasized[2xSPACE]", 8 ,1 


128 

570 

data "Boldface[4xSPACE]",16 ,1 

1170 

print#l,chr$(27);chr$(33);chr$(pm) 

580 

data "Expanded[4xSPACE]", 32 ,.5 


; 

590 

data "Underline[3xSPACE]", 128, 1 

1180 

for t=l to sp(x) 

600 

for ch=l to 7 

1190 

print#l,chr$(32); 

610 

read ch$ (ch) , cc (ch) , fc (ch) 

1200 

next t 

620 

next ch 

1210 

print#l,chr$ (17) ; 

630 

color 5,4 

1220 

print#l,chr$(27);chr$(33);chr$(k(x 

640 

for rg=l to ar 


) ) ; zn$(x) 

650 

print chr$(14); 

1230 

next x 

660 

char 1,5,rg*2,"" 

1240 

print#l,chr$(27);chr$(53);chr$(27) 


670 input zn$(rg) 

680 zz$(rg)=zn$(rg) 

690 next rg 

700 print chr$(147) 

710 for rg=l to ar 

720 char 1,5,4+rg,zn$(rg) 

730 next rg 

740 color 5,16 

750 char 1,40,12,"Druk[SPACE][CTRL-9]j 
[CTRL-0]a[SPACE]of[SPACE](CTRL-9]n 
[CTRL-0]ee [SPACE] !" 

760 char 1,40,13,"Indien[SPACE]fout[SP 

ACE]druk[SPACE][CTRL-9]F[CTRL-0]ou 
t[SPACE]!" 

770 color 5,4 

780 for y=l to ar 

790 1=1 

800 color 5,5 

810 char 1,26,0,"regel[SPACE]nr."+str$ 

(y) , 1 

820 color 5,4 

830 for x=l to 7 

840 char 1,50,3+x,ch$(x) 

850 getkey a$ : a$(x)=a$ 

860 if a$="f" then x=x-l:if a$(x)="j" 

then l=l/fc(x):k(y)=k(y)-cc(x):got 
o 840:else:else:goto840 
870 if a$="j" then c=l : k(y)=k(y)+cc( 
x) : 1= l*fc(x) : else : c=0 
880 char 1,50,3+x,ch$(x),c 

890 next x 

900 1 = int (ak*l) 

910 zn$(y) = left$(zn$(y),1) 

920 r = len(zn$(y)) 

930 sp(y)= int((1-r)/2+1) :sp=sp(y) 

940 if sp < 1 then 990 

950 zz$ (y) = zn$(y) 

960 for x=l to sp 

970 zz$(y) = "[SPACE]"+zz$(y) 

980 next x 

990 scnclr 


;chr$(120);chr$(48); 

1250 print#l,chr$(13) 

1260 closel 
1270 scnclr 

1280 char 1,22,7,"Nog[SPACE]eens[SPACE] 
[CTRL-9]j [CTRL-0]a [SPACE]of[SPACE] 
[CTRL-9]n[CTRL-0]ee[SPACE]?" 

1290 getkey a$ 

1300 if a$="j" then window 0,0,79,24 :s 
cnclr :print chr$(142);:run 
1310 end 


** EINDE LISTING etiketten 128 ** 


REGEL 

10 

240 

REGEL 

280 

123 

REGEL 

20 

255 

REGEL 

290 

8 

REGEL 

30 

143 

REGEL 

300 

71 

REGEL 

40 

21 

REGEL 

310 

107 

REGEL 

50 

226 

REGEL 

320 

63 

REGEL 

60 

143 

REGEL 

330 

205 

REGEL 

70 

175 

REGEL 

340 

24 

REGEL 

80 

119 

REGEL 

350 

74 

REGEL 

90 

77 

REGEL 

360 

218 

REGEL 

100 

55 

REGEL 

370 

201 

REGEL 

110 

143 

REGEL 

380 

6 

REGEL 

120 

8 

REGEL 

390 

73 

REGEL 

130 

199 

REGEL 

400 

218 

REGEL 

140 

143 

REGEL 

410 

214 

REGEL 

150 

241 

REGEL 

420 

143 

REGEL 

160 

143 

REGEL 

430 

121 

REGEL 

170 

77 

REGEL 

440 

143 

REGEL 

180 

36 

REGEL 

450 

120 

REGEL 

190 

143 

REGEL 

460 

168 

REGEL 

200 

71 

REGEL 

470 

122 

REGEL 

210 

143 

REGEL 

480 

27 

REGEL 

220 

35 

REGEL 

490 

232 

REGEL 

230 

77 

REGEL 

500 

143 

REGEL 

240 

126 

REGEL 

510 

254 

REGEL 

250 

109 

REGEL 

520 

143 

REGEL 

260 

1 

REGEL 

530 

62 

REGEL 

270 

215 

REGEL 

540 

11 
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REGEL 

550 

52 

REGEL 

750 

183 

REGEL 

950 

170 

REGEL 

1150 

243 

REGEL 

560 

242 

REGEL 

760 

207 

REGEL 

960 

3 

REGEL 

1160 

87 

REGEL 

570 

103 

REGEL 

770 

124 

REGEL 

970 

164 

REGEL 

1170 

90 

REGEL 

580 

176 

REGEL 

780 

244 

REGEL 

980 

218 

REGEL 

1180 

168 

REGEL 

590 

17 

REGEL 

790 

47 

REGEL 

990 

232 

REGEL 

1190 

173 

REGEL 

600 

202 

REGEL 

800 

125 

REGEL 

1000 

239 

REGEL 

1200 

214 

REGEL 

610 

49 

REGEL 

810 

35 

REGEL 

1010 

121 

REGEL 

1210 

176 

REGEL 

620 

13 

REGEL 

820 

124 

REGEL 

1020 

214 

REGEL 

1220 

38 

REGEL 

630 

124 

REGEL 

830 

151 

REGEL 

1030 

219 

REGEL 

1230 

218 

REGEL 

640 

52 

REGEL 

840 

135 

REGEL 

1040 

143 

REGEL 

1240 

205 

REGEL 

650 

81 

REGEL 

850 

94 

REGEL 

1050 

175 

REGEL 

1250 

113 

REGEL 

660 

133 

REGEL 

860 

128 

REGEL 

1060 

143 

REGEL 

1260 

209 

REGEL 

670 

59 

REGEL 

870 

124 

REGEL 

1070 

232 

REGEL 

1270 

232 

REGEL 

680 

42 

REGEL 

880 

246 

REGEL 

1080 

48 

REGEL 

1280 

130 

REGEL 

690 

27 

REGEL 

890 

218 

REGEL 

1090 

111 

REGEL 

1290 

255 

REGEL 

700 

77 

REGEL 

900 

136 

REGEL 

1100 

115 

REGEL 

1300 

76 

REGEL 

710 

52 

REGEL 

910 

47 

REGEL 

1110 

214 

REGEL 

1310 

128 

REGEL 

720 

247 

REGEL 

920 

142 

REGEL 

1120 

255 




REGEL 

730 

27 

REGEL 

930 

53 

REGEL 

1130 

84 




REGEL 

740 

175 

REGEL 

940 

91 

REGEL 

1140 

43 





Freeze 128 


Nog een vaste inzender van 128 programma’s is de 
heer Y. Rozijn. Ook ditmaal weer een zeer origineel 
programma een leuk spelletje, genaamd freeze. Het 
is de bedoeling om een bal die over het scherm gaat 
te raken met een lijn, de bal wordt dan vastgevroren, 
opnieuw verschijnt er een bal; ook deze moet vastge¬ 
vroren worden, echter zonder dat de lijnen elkaar ra¬ 
ken. Je kunt een bal voorbij laten gaan. Na 15 vastge¬ 
vroren ballen ga je over naar een hoger niveau. Het 
valt niet mee om dit spel tot een goed einde te bren¬ 
gen. 


10 rem ***************************** 

20 rem ** freeze! ** 

30 rem ** voor c-128 ** 

40 rem ** door y rozijn,amsterdam ** 

50 rem ***************************** 

60 gosub 780 

70 do:graphic l,l:if s>hs then hs=s 

80 : color 1,4:char 1,1,12,c$+"'FREEZ 

E'[SPACE]15[SPACE]ballen[SPACE]met 
[SPACE]een[SPACE]toet sdruk." 

90 : char 1,2,13,c$+"Ze[SPACE]worden[ 

SPACE]verbonden[SPACE]door[SPACE]e 
en[SPACE]lijn." 

100 : char 1,4,14,c$+"Laat[SPACE]deze[ 

SPACE]lijn[SPACE]nergens[SPACE]kru 
issn.":box 1,6,94,306,121 
110 : color 1,14:char 1,15,16,"score:" 

+right$("[3xSPACE]"+str$(s),5) 

120 : color 1,15:char 1,7,18,"hoogste[ 

SPACE]score:"+right$("[3xSPACE]"+s 
tr$(hs),5) 

130 : nv=l:v=3:s=100:color 1,8 

140 : for i=l to 7:gshape a$(i),x(i)-4 

,y(i)-4 

150 : : if i>l then draw 1,x(i—1)+4,y( 

i-1) to x(i)-4,y(i) 

160 next 

170 : color l,16:char 1,13,22,"druk[SP 

ACE]een[SPACE]toets" :play"t0" :gosu 
b 270 

180 : do:gosub 310:nv=nv-(nv<6):v=nv+2 

:if z=l or s=0then exit 
190 : color 1,14:char 1,34,0,str$ (s) 

200 : : color 1,16:for i=8 to 15:draw 

1,0,i to 319,i:next 

210 : : char 1,6,1,"druk[SPACE]een[SPA 


CE]toets[SPACE]voor[SPACE]level"+s 
tr$(nv),1 

220 : : play"tl":gosub 270 

230 : loop 

240 loop 
250 end 

260 rem **** wacht op toets **** 

270 poke 208,0:do:for i=l to pp:play p 
$(i):get x$:if x$<>"" then exit 
280 next:loop 
290 return 

300 rem **** spelronde **** 

310 graphic 1,1:color 1,8:draw 1,0,8 t 
o 319,8 

320 color l,15:char 1,9,0,"level"+str$ 
(nv) 

330 color 1,4:char 1,18,0,"ballen[SPAC 
E] 15" 

340 color l,14:char 1,29,0,"score"+str 
$ (s) 

350 x=160:y=100:n=0:z=0:color l,8:gsha 

pe b$,x-4,y-4 

360 do:a=fre(1):on fnr(4)+l gosub 700, 
720,740,760 

370 : color l,13:char 1,0,0,"freeze!": 

sprite 1,1,2,0,0,0,0 

380 : sound 1,1600,3,,,,1:color l,14:p 

oke 208,0 

390 : do:s=s-l:char 1,34,0,str$(s)+"[S 

PACE]" 

400 : : p=rsppos(1,0):q=rsppos(1,1):ge 

t x$ 

410 : loop while p>23 and p<337 and q> 

57 and q<243 and x$="" and s>0 
420 : sprite l,0:movespr 1,0#0:p=p-24: 

q=q-50 

430 : if p<0or p>311 or q<8 or q>191 

then x$="" 

440 : if x$<>"" then begin 

450 : : color 1,2:char 1,0,0,"freeze!" 

460 : : sound 1,24000,20,0,14000,500,3 

470 : color 1,8:gshape a$,p,q,2 

480 : p=p+4:q=q+4:draw l,x,y to p,q 

4 90 : : n=n+l:a(n)=x:b(n)=y:c=p-x:c (n) 

—c:d=q-y:d(n)=d 

500 : : color 1,4:char 1,24,0,str$ (15- 

n)+"[SPACE]" 

510 : : if n>l then begin:for i=n-l to 

1 step -1 

520 : : : if c(i)*d=d(i)*c then 1=99:m 

=99:else begin 

530 : : : : m=(x*d-y*c+c*b(i)-d*a(i))/ 

(c(i)*d-d(i)*c) 
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540 : : : : if oOOthen 1= (c (i) *m+a (i 

)-x)/c:else 1=(d(i)*m+b(i)-y)/d 
550 : : : bend 

560 : : : if l>0and 1<1 and m>0and m 

<1 then begin 

570 : : : : movespr 2,x+l*c+21,y+l*d+4 

7:sprite 2,1,11,0,0,0,0 
580 : : : : sound 1,10000,40,1,6000,60 

0:z=l:i=l 
590 : : : bend 

600 : : next:bend 

610 : x=p:y=q:if z=0then s=s+100 

620 : bend 

630 loop until z=l or s=0or n=15 
640 if z then begin:color l,ll:char 1, 
0,0,"[2xSPACE]j e[SPACE]hebt[SPACE] 
een[SPACE]lijn[SPACE]gekruist" 

650 sleep 6 

660 bend 
670 sprite 2,0 
680 return 

690 rem **** van boven **** 

700 movespr 1,fnr(192)+84,58:movespr 1 
,120+fnr(121)#v:return 
710 rem **** van onderen **** 

720 movespr 1,fnr(192)+84,242:movespr 
1,300+fnr(121)#v:return 
730 rem **** van links **** 

740 movespr 1,24,fnr(120)+84:movespr 1 
,30+fnr(121)#v:return 
750 rem **** van rechts **** 

760 movespr 1,336,fnr(120)+84:movespr 
1,210+fnr(121)#v:return 
770 rem **** init **** 

780 color 0,1:color 4,1:color 1,1:grap 
hic 1,1:with 2 

790 circle 1,11,11,4,4:shape b$,7,7,30 
,28:sprsave b$,2 

800 shape b$,7,7,16,16:paint l,ll,ll:s 
hape a$,7,7,30,28 

810 sprsave a$,l:shape a$,7,7,16,16:ci 
rcle 1,11,11,5,5 

820 for i=l to 7:char 1,1,1,mid$("free 
ze!",i,1), 1 

830 : shape a$(i) , 6,6,17,17 

840 next 

850 x=rnd(—ti):c$=chr$(14):def fnr(i)= 

int (rnd (1) *i) 

860 dim a (15) , b (15) , c (15) , d (15) , p$ (50) 
870 envelope 0,3,10,9,9,2,1000:envelop 
e 1,5,9,9,9,0:tempo 20:play"v2" 

880 for i=l to 7:read x(i),y(i):next 
890 pp=0 :do:pp=pp+l:read p$(pp):loop u 
ntil p$(pp)="rrrr" 

900 return 

910 data 10,35, 75,15, 100,40, 150,75, 
200,25, 240,60, 300,10 
920 data v2qr,r,r,r,o4fede,fagf,afg#g, 
ao5co4#aa,o5co4gab,o5cedc,o4bgab,o 
5co4geg 

930 data fdco3g,eerr,dfao4c,o3bgfg,dfa 
o4c,o3bo4dcr,o4co3gab, o4cedc, dfao5 
c 

940 data o4bgfied,qcego5c,rrrr 

** EINDE LISTING freeze ** 

10 rem ****************************** 


REGEL 

10 

81 

REGEL 

460 

204 

REGEL 

20 

25 

REGEL 

470 

201 

REGEL 

30 

136 

REGEL 

480 

218 

REGEL 

40 

106 

REGEL 

490 

18 

REGEL 

50 

81 

REGEL 

500 

179 

REGEL 

60 

44 

REGEL 

510 

38 

REGEL 

70 

60 

REGEL 

520 

108 

REGEL 

80 

62 

REGEL 

530 

161 

REGEL 

90 

178 

REGEL 

540 

62 

REGEL 

100 

225 

REGEL 

550 

197 

REGEL 

110 

244 

REGEL 

560 

191 

REGEL 

120 

41 

REGEL 

570 

224 

REGEL 

130 

188 

REGEL 

580 

142 

REGEL 

140 

217 

REGEL 

590 

197 

REGEL 

150 

78 

REGEL 

600 

71 

REGEL 

160 

188 

REGEL 

610 

159 

REGEL 

170 

193 

REGEL 

620 

81 

REGEL 

180 

122 

REGEL 

630 

32 

REGEL 

190 

235 

REGEL 

640 

26 

REGEL 

200 

170 

REGEL 

650 

121 

REGEL 

210 

207 

REGEL 

660 

23 

REGEL 

220 

159 

REGEL 

670 

147 

REGEL 

230 

38 

REGEL 

680 

142 

REGEL 

240 

236 

REGEL 

690 

62 

REGEL 

250 

128 

REGEL 

700 

233 

REGEL 

260 

132 

REGEL 

710 

207 

REGEL 

270 

251 

REGEL 

720 

20 

REGEL 

280 

168 

REGEL 

730 

69 

REGEL 

290 

142 

REGEL 

740 

169 

REGEL 

300 

139 

REGEL 

750 

141 

REGEL 

310 

215 

REGEL 

760 

15 

REGEL 

320 

1 

REGEL 

770 

19 

REGEL 

330 

56 

REGEL 

780 

1 

REGEL 

340 

229 

REGEL 

790 

112 

REGEL 

350 

87 

REGEL 

800 

10 

REGEL 

360 

237 

REGEL 

810 

112 

REGEL 

370 

210 

REGEL 

820 

41 

REGEL 

380 

34 

REGEL 

830 

9 

REGEL 

390 

79 

REGEL 

840 

130 

REGEL 

400 

109 

REGEL 

850 

121 

REGEL 

410 

69 

REGEL 

860 

70 

REGEL 

420 

37 

REGEL 

870 

63 

REGEL 

430 

144 

REGEL 

880 

22 

REGEL 

440 

166 

REGEL 

890 

153 

REGEL 

450 

63 
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print-out print-out print-out print-out print-out 


★ ★★ 


20 

rem ; 

syntax.checksum 

30 

rem voor c-16 & plus/4 

40 

rem 


50 

rem ; 

syntax testen met 'sys 1536' 

60 

rem 


70 

rem 1 

v.851128.16 jan bodzinga 

80 

rem 





90 

i=1536 :rem beginadres 

100 

reada: ifa>=0then pokei,a:i=i+l:got 


olOO 


110 

print"data[SPACE]is[SPACE]weggezet 

120 

print"cheksum[SPACE]printen[SPACE] 


met[SPACE]'sys[SPACE]1536' 

130 

end 


200 

data 

165, 43,166, 44,133 

210 

data 

31,134, 32,169,147 

220 

data 

32,210,255,160, 0 

230 

data 

240, 3, 32, 73, 6 

240 

data 

32, 73, 6,208, 1 

250 

data 

96, 72,152, 32,131 

260 

data 

6,168,104,234, 32 

270 

data 

81, 6, 32, 73, 6 

280 

data 

240, 12,201, 32,240 

290 

data 

247, 24,101,252,133 

300 

data 

252, 76, 37, 6,166 

310 

data 

252,169, 0,132,253 

320 

data 

32, 95,164,169, 13 

330 

data 

32,210,255,164,253 

340 

data 

76, 17, 6,200,208 

350 

data 

2,230, 32,177, 31 

360 

data 

96,162, 0,189,123 

370 

data 

6,240, 6, 32,210 

380 

data 

255,232,208,245, 32 

390 

data 

73, 6,170, 32, 73 

400 

data 

6,132,253, 32, 95 

410 

data 

164,162, 3,169, 32 

420 

data 

32,210,255,202,208 

430 

data 

250,169, 0,133,252 

440 

data 

164,253, 96, 82, 69 

450 

data 

71, 69, 76, 32, 0 

460 

data 

0, 72,138, 72, 32 

470 

data 

225,255,240, 251, 104 

480 

data 

170,104, 96, -1 


** EINDE LISTING checks16** 


100 scnclr 


REGEL 

10 

249 

REGEL 

280 

186 

REGEL 

20 

247 

REGEL 

290 

248 

REGEL 

30 

121 

REGEL 

300 

118 

REGEL 

40 

143 

REGEL 

310 

204 

REGEL 

50 

75 

REGEL 

320 

165 

REGEL 

60 

143 

REGEL 

330 

252 

REGEL 

70 

8 

REGEL 

340 

106 

REGEL 

80 

249 

REGEL 

350 

98 

REGEL 

90 

103 

REGEL 

360 

163 

REGEL 

100 

2 

REGEL 

370 

45 

REGEL 

110 

245 

REGEL 

380 

0 

REGEL 

120 

237 

REGEL 

390 

58 

REGEL 

130 

128 

REGEL 

400 

108 

REGEL 

200 

210 

REGEL 

410 

159 

REGEL 

210 

208 

REGEL 

420 

245 

REGEL 

220 

142 

REGEL 

430 

202 

REGEL 

230 

1 

REGEL 

440 

176 

REGEL 

240 

3 

REGEL 

450 

12 

REGEL 

250 

157 

REGEL 

460 

54 

REGEL 

260 

155 

REGEL 

470 

43 

REGEL 

270 

215 

REGEL 

480 

1 


Lprint - LUST C-16 


Hieronder volgt een programma van een inzender die 
zijn naam vergeten heeft te vermelden. We willen u 
het toch niet onthouden. Na het runnen van dit pro¬ 
gramma kunt u volstaan als u iets naar de printer wilt 
sturen met het commando LUST of LPRINT. Het pro¬ 
gramma neemt geen geheugenruimte in beslag. 


110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 


470 

480 


data a0,01,78,8d,3f,ff,bl,3b,3d0 
data 8d, 3e, ff, 58, c9, 99, f0, 14,488 
data c9, 9b, f0,10, 4c, 97, 06, c8, 415 
data c0,04, d0, e6, 4c,24,06,c8,3b8 
data c0,05,d0,de,20,73,04,a9,3b3 
data 00, a8, a2, 04,20,ba,ff,a9,3d0 
data 00,20,bd,ff,20,c0,ff,a9,464 
data 00,20,c9,ff,60,a9,00,20,311 
data c3, ff, 20, cc,ff, 60,a2,ff,5ae 
data 86,3a,20,5a,88,86,3b,84,307 
data 3c,20,73,04,c9,4c,f0, 06,2de 
data 20,79,04,4c,20,87,20,00,lbO 
data 06, a9,69,8d,02,03,4c,58,24e 
data 06,20,3d,06,a9,46,8d,02,le7 
data 03,4c,46,06,20,73,04,c9,lfb 
data 4c,f0,06,20,79,04,4c,d9,304 
data 8b,20,00,06,a9,8c,8d,08,27b 
data 03,4c,7b,06,20,3d,06,a9,ldc 
data 74,8d, 08,03, 4c,74,06,d9,2ab 
data cc,06,f0,06,d9,dl,06,f0,468 
data 04,60,4c,17,06,4c,lf,06,13e 
data 8a,48,20,3d,06,68,aa,4c,293 
data 86,86,a9,a8,8d,00,03,a9,396 
data 46,8d,02,03,a9,74,8d,08,28a 
data 03,a9,06,8d,01,03,8d, 03, ld3 
data 03, 8d, 09, 03,60,50,52,49,le7 
data 4e,54,4c,49,53,54,00,00,1de 
ad=1536 
for a=0to 26 
tt=0 

for b=0to 7 
read b$:c=dec(b$) 
poke ad+b,c:tt=tt+c 
next b 
read b$ 

if dec(b$)Ott then print " [SHIFT- 
CLR]?data[SPACE]error[SPACE]in";pe 
ek(63)+peek(64)*256:end 
ad=ad-5-8 
next a 
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print-out print-out print-out print-out print-out 


490 sys 1714 
500 a$=chr$(34) 

510 print "de[SPACE]twee[SPACE]printer 


MARO-BOX 


I [SPACE]kommando's[SPACE]zitten" 

I 520 print "nu[SPACE]in[SPACE]het[SPACE 
]geheugen[SPACE]van[SPACE]de[SPACE 
I ]computer" 

| 530 print "en[SPACE]nemen[SPACE]geen[S 

PACE]ruimte[SPACE]in[SPACE]beslag[ 
SPACE]van[SPACE]het" 

| 540 print "basic[SPACE]geheugen." 

1 550 print 

| 560 print "de[SPACE]kommando's[SPACE]w 

erken[SPACE]zo:" 

| 570 print 

I 580 print "lprint[SPACE]"a$"tekst"a$ 

! 590 print 

i 600 print "print[SPACE]de[SPACE]tekst[ 

SPACE]op[SPACE]de[SPACE]printer." 

| 610 print 

620 print "llist[SPACE]" 

630 print 

i 640 print "print[SPACE]de[SPACE]listin 

g[SPACE]op[SPACE]de[SPACE]printer. 

I» 

| 650 print 

660 print "veel[SPACE]plezier." 
i 670 key 1,"graphic" 

680 new 


** EINDE LISTING lprint ** 

10 rem maro - box 


REGEL 

100 

232 

REGEL 

510 

109 

REGEL 

110 

52 

REGEL 

520 

29 

REGEL 

120 

61 

REGEL 

530 

227 

REGEL 

130 

19 

REGEL 

540 

181 

REGEL 

140 

20 

REGEL 

550 

153 

REGEL 

150 

10 

REGEL 

560 

229 

REGEL 

160 

37 

REGEL 

570 

153 

REGEL 

170 

48 

REGEL 

580 

79 

REGEL 

180 

228 

REGEL 

590 

153 

REGEL 

190 

121 

REGEL 

600 

248 

REGEL 

200 

246 

REGEL 

610 

153 

REGEL 

210 

19 

REGEL 

620 

74 

REGEL 

220 

198 

REGEL 

630 

153 

REGEL 

230 

2 

REGEL 

640 

135 

REGEL 

240 

247 

REGEL 

650 

153 

REGEL 

250 

242 

REGEL 

660 

82 

REGEL 

260 

247 

REGEL 

670 

152 

REGEL 

270 

9 

REGEL 

680 

16 

REGEL 

280 

13 




REGEL 

290 

15 




REGEL 

300 

27 




REGEL 

310 

239 




REGEL 

320 

12 




REGEL 

330 

13 




REGEL 

340 

2 




REGEL 

350 

237 




REGEL 

360 

218 




REGEL 

370 

244 




REGEL 

380 

6 




REGEL 

390 

176 




REGEL 

400 

138 




REGEL 

410 

128 




REGEL 

420 

164 




REGEL 

430 

160 




REGEL 

440 

196 




REGEL 

450 

237 




REGEL 

460 

145 




REGEL 

470 

158 




REGEL 

480 

195 




REGEL 

490 

107 




REGEL 

500 

150 





Martin van Dijk en Ronald Krijgsheld zijn samen ver¬ 
antwoordelijk voor het volgende spel. Het werkt op 
een Cl6 en een plus 4. De bedoeling van het spel is 
zo veel mogelijk dozen door de luchtkoker te laten 
verdwijnen en er vooral voor te zorgen dat de dozen 
niet van de lopende band glijden. In het totaal zijn er 5 
banden.Om te zorgen dat een pakje een band hoger 
komt moet u er voor zorgen dat de robot bij deze 
band staat om het pakje op te vangen. De doos wordt 
dan automatisch een verdieping hoger gebracht. U 
zult een eigen taktiek moeten ontwikkelen om deze 
opdracht te volbrengen. De grote vraag blijft: bent u 
een uitgekiende robot manager of werkt de doseer- 
machine u tegen?? 


20 rem 

30 rem voor de c-16 en plus/4 
40 rem 

50 rem door ronald krijgsheld 

60 rem en martin van dijk 

70 rem 

80 rem beverwijk 1987 

90 rem marosoft 

100 colorl, 2:color 0,1:color4,1:vol8 

110 print"[SHIFT-CLR]*************[SPA 
CE]maro-box[SPACE].[SPACE]******** 

120 print:print:print"[6xSPACE][COM-A] 
[26xCOM-R][COM-S]" 

130 print"[6xSPACE][COM-Q][26xSPACE][C 
OM W] " 

140 print"[6xSPACE][COM-Q][26xSPACE][C 
OM W] " 

150 print"[6xSPACE][COM-Q][2xSPACE][CO 
M 8][9xSPACE]door[8xSPACE][CTRL-2] 
[3XSPACE][COM-W]" 

160 print"[6xSPACE][COM-Q][26xSPACE][C 
OM W] " 

170 print"[6xSPACE][COM-Q][2xSPACE][CO 
M 8][3xSPACE]martin[2xSPACE]van[2x 
SPACE]dijk[SPACE][CTRL-2][3xSPACE] 
[COM-W]" 

180 print"[6xSPACE][COM-Q][26xSPACE][C 
OM W] " 

190 print"[6xSPACE][COM-Q][2xSPACE][CO 
M 8][lOxSPACE]en[9xSPACE][CTRL-2][ 
3xSPACE][COM-W]" 

200 print"[6xSPACE][COM-Q][26xSPACE][C 
OM W] " 

210 print"[6xSPACE][COM-Q][2xSPACE][CO 
M 8][3xSPACE]ronald[SPACE]krijgshe 
ld[SPACE][CTRL-2][3xSPACE][COM-W]" 
220 print"[6xSPACE][COM-Q][26xSPACE][C 
OM W] " 

230 print"[6xSPACE][COM-Q][26xSPACE][C 
OM W] " 

240 print"[6xSPACE][COM-Z][26xCOM-E][C 
OM X] " 

250 vol 8 

260 forr=lto4:fort=1000tol00step-25 
270 soundl,t,1:nextt:nextr 
280 rem instructies 

290 print"[SHIFT-CLR]**************[SP 
ACE]maro-box[SPACE].[SPACE]******* 

300 print:print:print"[3xSPACE]de[SPAC 
E]bedoeling[SPACE]van[SPACE]dit[SP 
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III 


f 

print-out print-out print-out print-out print-out 

1 310 

ACE]spel[SPACE]is" 

print"[3xSPACE]dat[SPACE]je[SPACE] 

810 

90,104 

fort=lto6:poke3112+t,119:next 


zoveel[SPACE]mogelijk[SPACE]dozen[ 

820 

poke 3112,79 

l 

SPACE]naar" 

830 

fort=10to38:poke3112+t,119:next 

320 

print"[3xSPACE]boven[SPACE]brengt. 

840 

poke 3151,80 

l 

'ff 

850 

fort=3191to4070step40:poket,106:ne 

330 

print"[3xSPACE]j e[SPACE]kunt[SPACE 


xt 

1 

]de[SPACE]robots[SPACE]aan[SPACE]d 

860 

poke4071,122 


e[SPACE]zijkant" 

870 

fort=4070to4032step-l .-poket, 111 :ne 

1 340 

print"[3xSPACE]van[SPACE]de[SPACE] 


xt 


lopende[SPACE]band[SPACE]bewegen[S 

880 

poke4032,76 

I 

PACE]met" 

890 

fort=3992to3152step-40:poket,116:n 

350 

print:print"[3xSPACE]NM=a[2 OxSPACE 


ext 

1 

]NM=;" 

900 

rem beweging robots 

360 

print"[3xSPACE]YG[22xSPACE]YG" 

910 

pokea,87:pokea+40,107:pokea+80,109 

370 

print"[7xSPACE]W[18xSPACE]W" 

920 

pokeb,87:pokeb+40,115:pokeb+80,125 

380 

print"[7xSPACE][COM-Q][18xSPACE][C 

930 

geta$ 


OM W] " 

940 

print"[CTRL-8][HOME]score:";sc;"[C 

390 

print"[7xSPACE][COM-Z][18xSPACE][C 


TRL 7][SPACE]missers:";le;"[COM-6] 

1 

OM X] " 


[SPACE]h.score:[CTRL-2]";hi 

400 

print"[3xSPACE]YG[22xSPACE]YG" 

950 

ifa$="a"thena=a-160:soundl,800,10: 

I 410 

print"[3xSPACE]MN=z[2OxSPACE]MN=/" 


sound2,900,5:gotol020 

I 420 

print:print"[3xSPACE]het[SPACE]spe 

960 

ifa$="z"thena=a+160:soundl,700,10: 

1 

1[SPACE]begint[SPACE]als[SPACE]het 


sound2,600,5:gotol050 

1 

[SPACE]" 

970 

ifa$=";"andb<3704thenb=b-160:sound 

430 

print"[3xSPACE]melodietje[SPACE]af 


1,800,10:sound2,900,5:gotol080 


gelopen[SPACE]is" 

980 

ifa$=";"andb>3704thenb=b-80:soundl 

I 440 

rem melodietje 


,800,10:sound2,900,5:gotol080 

1 450 

restore 

990 

ifa$="/"andb<3704thenb=b+160:sound 

1 460 

vol 8 


1,700,10:sound2,600,5:gotolllO 

1 470 

do 

1000 

ifa$="/"andb>3704thenb=b+80:soundl 

f 480 

read x,y 


,700,10:sound2,600,5:gotolllO 

1 490 

sound l,x,y 

1010 

ifa$=""thenll50 

1 500 

for d=ltoy*16+30:next 

1020 

ifa<3357thena=3357 

1 510 

loop until x=0 

1030 

forx=240to80step-40 

1 520 

goto 640 

1040 

pokea+x,32:nextx:goto910 

1 530 

data 643,15,739,15,739,8,770,8 

1050 

ifa>3677thena=3677 

1 540 

data 798,15,739,15,834,30,798,15 

1060 

for x=0tol60step40 

| 550 

data 798,15,810,15,834,8,810,8 

1070 

pokea-x,32:nextx:goto910 

1 560 

data 798,8,810,8,834,15,770,8 

1080 

ifb<3 465thenb=3465 

1 570 

data 739,8,770,8,798,8,770,8 

1090 

forx=240to80step-40 

1 580 

data 1020,8,643,15,739,15,739,8,77 

1100 

pokeb+x,32:nextx:goto910 

1 

0, 8 

1110 

ifb>3705thenb=3705 

1 590 

data 798,15,739,15,834,30,798,15 

1120 

forx=0tol60step40 

600 

data 798,15,810,15,834,8,810,8 

1130 

pokeb-x,32:nextx:goto910 

1 610 

data 798,8,810,8,834,15,770,23 

1140 

rem beweging/controle boxen 

1 620 

data 739,8,739,30,0,0 

1150 

fory=lto4 

1 630 

rem opbouw scherm 

1160 

ife(y)>3750thenl370 

1 640 

color 0,l:color l,2:color 4,l:scnc 

1170 

ife(y)<3663thenl210 


lr 

1180 

ife(y)=3748thenl260 

I 650 

a=3677:b=3705:g(y)=-l: sc=0 : le=0 

1190 

ife(y)=3718thenl350 

660 

f=4:y=0:o=l:q=l0 

1200 

ife(y)=3664thenl280:elsel240 

670 

v=int(rnd(0)*10)+4 

1210 

ife(y)=3558thenl330 

1 680 

forz=0to40stepl0:e(z/10)=3750+z:g( 

1220 

ife(y)=3504thenl300 

1 

z/10)=-l:next 

1230 

ife(y)=3398thenl320 

690 

print 

1240 

pokee(y),32:e(y)=e(y)+g (y) :pokee (y 

700 

for w= lto3 


),121:sound3,700,1:nexty 

710 

print"[CTRL-2][7xSPACE][CTRL~6]B[S 

1250 

goto910 

I 

PACE]B" : nextw 

1260 

ifpeek(3745)=115thenpokee(y) , 32 : e ( 

1 720 

print"[CTRL-2][5xSPACE][CTRL-6][CO 


y) =e (y)-6 : g(y)=-l : sc=sc+l : sound3 , 9 

| 

M A]C[COM-X][SPACE]B[CTRL-2] " 


00,7:gotol240 

730 

print"[CTRL-2][5xSPACE][CTRL-6]B[3 

1270 

goto 1460 

1 

xSPACE]B[CTRL-2] " 

1280 

ifpeek(3665)=115thenpokee(y) , 32 : e ( 

1 740 

print"[CTRL-2][5xSPACE][CTRL-6]B[S 


y) =e (y) -80 : g(y)=-l : sc=sc+l : sound3, 

1 

HIFT SPACE][COM-A]C[COM-X][CTRL-2] 

1! 

1290 

900,7:gotol240 
goto 1460 

750 

print"[CTRL-2][7xSPACE][CTRL-6]B[C 

1300 

ifpeek(3505)=115thenpokee(y) , 32 : e ( 

1 760 

TRL 2] " 
print 


y) =e (y) -80 : g(y)=-l : sc=sc+l : sound3 , 

900,7:gotol240 

I 770 

for x=l to5 

1310 

goto 1460 

1 780 

print"[7 xSPACE] [CTRL-3] [25xCOM-|] [ 

1320 

ifpeek(3397)=107thenl380:elsel460 

l 

CTRL-2]" 

1330 

ifpeek(3557)=107thenpokee(y),32:e( 

| 790 

print:next 


y) =e(y)-80:g(y)=1:sc=sc+l:sound3,9 

ï 800 

poke 3788,104:poke3789,104:poke 37 


00,7:gotol240 


















1340 

1350 


1360 

1370 

1380 


1390 

1400 


1410 

1420 


1430 

1440 

1450 

1460 


1470 

1480 

1490 


REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 


goto 1460 

ifpeek(3717)=107thenpokee(y) , 32:e( 
y) =e (y) “80 ’• g (y) =1: sc=sc+l: sound3, 9 
00,7:gotol240 
goto 1460 

e(y) =e(y)-1 : nexty : goto930 
pokee(y),32:gosubl390:o=o+2:e(y)=3 
750+v+o:v=int(rnd(0)*20)+14:goto 1 
570 

forx=lto3 

poke e(y),32:forw=lto40:nextw:e(y) 
=e(y)-40:pokee(y),121:soundl,e(y)- 
2524,2:nextx 
for t=lto2 

poke e(y),32:forw=lto40:nextw:e(y) 
=e (y) +1:pokee (y) , 121: soundl, e (y) -2 
524,2:nextt 
fort=lto5 

pokee (y) , 32 :e (y) =e (y) -40 :pokee (y) , 

121:soundl,e(y)-2524,2:nextt 

pokee(y),32:sc=sc+10:return 

fort=16to 1 step-1:colorO,t,4:colo 

r4,t,4:fori=lto25:nexti:sound3,t*6 

3,5:nextt 

colorO,1:color4,1 

le=le+l:ifle=3thenl510 

pokee(y),32:o=o+2:e(y)=3750+v+o:v= 


int(rnd(0)*10)+4:g(y)=-l:goto 1570 
1500 rem einde spel 

1510 ifsc>hithenhi=sc:print"[SHÏFT-CLR] 
[4xCRSR-RIGHT]je[SPACE]hebt[SPACE 
]de[SPACE]hoogste[SPACE]score":el 
seprint"[SHIFT-CLR]" 

1520 print"[5xCRSR-DOWN][4xCRSR-RIGHT]j 
e[SPACE]hebt[SPACE]";sc;"[SPACE]pu 
nten[SPACE]gehaald" 

1530 print"[2xCRSR-DOWN][4xCRSR-RIGHT]w 
il[SPACE]je[SPACE]nog[SPACE]een[SP 
ACE]keer(j/n)" 

1540 geta$ : ifa$<>" j "anda$O"n"thenl540 

1550 ifa$="n"thenend 

1560 ifa$="j"thengoto 290 

1570 ife(1)=e(2)thene(2)=e (2) +5 

1580 ife (1) =e (3) thene (3) =e (3) +5 

1590 ife (1) =e (4) thene (4) =e (4)+5 

1600 ife (2)=e(3)thene(3)=e(3)+5 

1610 ife(2)=e(4)thene(4)=e(4)+5 

1620 ife (3)=e(4)thene (4)=e (4)+5 

1630 if o=20then o=10 

1640 goto 1150 

** EINDE LISTING maro-box ** 


10 

212 

REGEL 

460 

19 

REGEL 

910 

65 

REGEL 

1360 

84 

20 

143 

REGEL 

470 

235 

REGEL 

920 

65 

REGEL 

1370 

224 

30 

111 

REGEL 

480 

100 

REGEL 

930 

6 

REGEL 

1380 

229 

40 

143 

REGEL 

490 

20 

REGEL 

940 

244 

REGEL 

1390 

147 

50 

106 

REGEL 

500 

129 

REGEL 

950 

204 

REGEL 

1400 

202 

60 

244 

REGEL 

510 

34 

REGEL 

960 

227 

REGEL 

1410 

142 

70 

143 

REGEL 

520 

35 

REGEL 

970 

64 

REGEL 

1420 

146 

80 

17 

REGEL 

530 

116 

REGEL 

980 

15 

REGEL 

1430 

145 

90 

250 

REGEL 

540 

222 

REGEL 

990 

41 

REGEL 

1440 

182 

100 

35 

REGEL 

550 

108 

REGEL 

1000 

248 

REGEL 

1450 

2 

110 

123 

REGEL 

560 

67 

REGEL 

1010 

84 

REGEL 

1460 

242 

120 

245 

REGEL 

570 

30 

REGEL 

1020 

189 

REGEL 

1470 

38 

130 

59 

REGEL 

580 

199 

REGEL 

1030 

229 

REGEL 

1480 

88 

140 

59 

REGEL 

590 

222 

REGEL 

1040 

220 

REGEL 

1490 

216 

150 

15 

REGEL 

600 

108 

REGEL 

1050 

197 

REGEL 

1500 

40 

160 

59 

REGEL 

610 

112 

REGEL 

1060 

3 

REGEL 

1510 

86 

170 

173 

REGEL 

620 

160 

REGEL 

1070 

221 

REGEL 

1520 

104 

180 

59 

REGEL 

630 

45 

REGEL 

1080 

191 

REGEL 

1530 

233 

190 

110 

REGEL 

640 

248 

REGEL 

1090 

229 

REGEL 

1540 

157 

200 

59 

REGEL 

650 

223 

REGEL 

1100 

221 

REGEL 

1550 

91 

210 

130 

REGEL 

660 

171 

REGEL 

1110 

183 

REGEL 

1560 

251 

220 

59 

REGEL 

670 

53 

REGEL 

1120 

3 

REGEL 

1570 

148 

230 

59 

REGEL 

680 

16 

REGEL 

1130 

222 

REGEL 

1580 

151 

240 

197 

REGEL 

690 

153 

REGEL 

1140 

232 

REGEL 

1590 

154 

250 

19 

REGEL 

700 

146 

REGEL 

1150 

149 

REGEL 

1600 

152 

260 

0 

REGEL 

710 

151 

REGEL 

1160 

108 

REGEL 

1610 

155 

270 

6 

REGEL 

720 

247 

REGEL 

1170 

106 

REGEL 

1620 

156 

280 

236 

REGEL 

730 

137 

REGEL 

1180 

114 

REGEL 

1630 

247 

290 

123 

REGEL 

740 

151 

REGEL 

1190 

111 

REGEL 

1640 

8 

300 

43 

REGEL 

750 

199 

REGEL 

1200 

71 




310 

14 

REGEL 

760 

153 

REGEL 

1210 

111 




320 

71 

REGEL 

770 

149 

REGEL 

1220 

99 




330 

132 

REGEL 

780 

102 

REGEL 

1230 

112 




340 

74 

REGEL 

790 

85 

REGEL 

1240 

120 




350 

220 

REGEL 

800 

4 

REGEL 

1250 

35 




360 

29 

REGEL 

810 

171 

REGEL 

1260 

200 




370 

139 

REGEL 

820 

250 

REGEL 

1270 

84 




380 

59 

REGEL 

830 

16 

REGEL 

1280 

251 




390 

71 

REGEL 

840 

245 

REGEL 

1290 

84 




400 

29 

REGEL 

850 

117 

REGEL 

1300 

244 




410 

22 

REGEL 

860 

36 

REGEL 

1310 

84 




420 

63 

REGEL 

870 

228 

REGEL 

1320 

11 




430 

236 

REGEL 

880 

249 

REGEL 

1330 

81 




440 

113 

REGEL 

890 

42 

REGEL 

1340 

84 




450 

140 

REGEL 

900 

176 

REGEL 

1350 

79 
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Met de PC 60 en aantrekkelijker vormgeving en hogere kloksnelheid voor de PC’s 
heeft men het aanbod in lijn gebracht met wat de markt voor 1988 verwacht. 


Nieuwe PC’s van Commodore 


V oor de PC koper heeft Commodore begin december een aantal interes¬ 
sante mededelingen gedaan. Men komt uit met een nieuw instapmodel, 
de PCI 011 met een hogere kloksnelheid. 


Eigenlijk hadden we verwacht, dat 
men de PC-1, die in Las Vegas in de 
VS in november getoond was, hier 
zou gaan brengen, maar men koos 
voor het behoud van de PC 10 naam¬ 
geving. De vorm van de machine is 
wat slanker, er zitten duidelijk meer 
functies, zoals een muisinterface, op 
de moederkaart, een en ander 
betekent meer functies voor dezelfde 
produktiekosten/prijs. De belang¬ 
rijkste verbetering was de verhoogde 
kloksnelheid, de PC 10 II gaat nu 9,54 
MHz lopen, een verdubbeling t.o.v het 
oude model, men heeft nu ook een zo¬ 
genaamd "extended" toetsenbord met 
101 toetsen en de functietoetsen 
bovenaan. 

Ook de PC20 kreeg een oppepper, 
maar belangrijker was nog de aankon¬ 
diging van de PC 60, een supermicro 
op basis van de 80386 micro¬ 
processor van Intel. Die machine krijgt 


een systeemsnelheid van 16 MHz. 
Men heeft een 32 bits geheu- 
genuitbreiding voorzien tot 8 MB, via 


een speciale kaart. Dat is meer dan de 
meeste 386 machines, die maar 1 MB 
aan 32 bit geheugen hebben, en voor 
uitbreiding dan gebruik moeten 
maken van de 16 bits buscon- 
nectors. Sommige 386’s, zoals 
de Mylex boards en de Everex 
3000, komen tot 4 MB aan 32 bits 
op de moederkaart. Gezien de 
verwachting, dat OS/2 tot 4 MB 
aan snelle RAM gaat gebruiken, 
is dat ongeveer wat men nodig 
zal hebben en ook de PC 60 vol¬ 
doet hier dus aan. Qua video¬ 
kaarten kan men kiezen uit AGA 
of EGA kaarten. De PC 60 gaat 
rond de 11.000 gulden kosten, 
CBM (020-882222) zal de prijzen 
begin 1988 bekend maken. 



KLEINE ADVERTENTIES 


1 Gratis naar PB 112, Blaricum 

Te koop IBM-Compatible PC 
Compleet met 2 diskdrives, AVT 
monitor, MS-DOS 3.2, GW Basic, dis¬ 
kettes, ƒ 1.975,- tel.08356-86786. 

Te koop C-64 

C-64,1541 diskdrive, 1531 datasette, 
diskettes met software, Power 
Cartridge, Centronics-kabel, 15.000 
Bfr. B. Achelet, St- Rienhildisstr 41, 
2510 Mortsel, Belgie. 

Aangeboden monitor 
Commodore kl. monitor 4 mnd oud, 
ƒ 700,-tel.01810-18125. 

Printer gevraagd 

Mps 802 printer met handleiding, 
tel.08854-1292. 

Te koop Printer 

Brother HR 5C, 1 jaar oud met trans¬ 
formator, papier, ƒ 275,- tel.03473- 
76383. 

Te koop C-16 

C-16, data ree, joystick, software, 
ƒ 375,-tel.01641-3845. 

Aangeboden C-128 


C-128, monitor, datarec, joystick, soft¬ 
ware, handleiding. C. de Ras, 
Groenplein 16, B-9030 Gent. 

Te koop C-16 

Met 1531 datarec, joystick, software, 
boeken, handleiding, ƒ 500,- Tel. 
05960-29565. 

Gevraagd Amiga 

Amiga 500 en een monitor, tel.08860- 
73045. 

Te koop C-128 

Compleet met Philips monitor, 1571 
diskdrive, Seikosha printer, Perfect 
Writer, boeken, ƒ 1. 650,- tel.020- 
253713. 

Aangeboden C-64 

Compleet met datarecorder, reset 
knop, handleiding, software, Simon 
Basic, boeken, tijdschriften, ƒ 550,- 
tel.05610-8616. 

Te koop Sound Sampler 
Compleet voor C-64 met microfoon, 
diskette en handleiding ƒ 100,- 
tel.04923-62984. 

Aangeboden C-64 


Met datarec. , diskdrive 1541, Sei¬ 
kosha printer, 

diskettes, opbergbak, Final Cart, 
ƒ 1300,- tel.035-831554. 

Gezocht Star NL 10 
Compleet met handleiding en in rede¬ 
lijk staat, prijs 9.000 Bfr tel.016- 
530931 in Belgie. 

Te koop C-128 

Inclusief, diskdrive, datasasette, joy¬ 
stick, tijdschriften, software, tel.080- 
445490. 

Aangeboden Power Cartridge 
Voor de C-64 met handleiding, ƒ 100,- 
tel.02502-6688. 

Te koop C-64 

CBM-64, datarec. , 1541 diskdrive, 
veel diskettes, Mps 801 printer, 
papier, Power Cartridge, spelletjes, 
stofhoes, ƒ 1.750,- tel.01641 -3882. 
Aangeboden C-64 

Compleet met 1541 diskdrive, disk- 
bak, printer, cassrec., Power en Final 
Cartridge, joystick, boeken, tel.010- 
4348717. 
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AMIGA SOFTWARE 


HARDBALL 

Honkbal is een sport die in Nederland 
steeds in populariteit toeneemt maar 
het zal nooit het voetbal van de eerste 
plaats verdrijven. Anders is het in 
Amerika, waar een team gemiddeld 
vijf keer in de week een wedstrijd 
speelt (wat neerkomt op zo’n 200 
wedstrijden per jaar) en waar de sta¬ 
dions keer op keer volstromen. Het 
hoogtepunt is de World Series, de fi¬ 
nale tussen de kampioenen van de 
National- en de American League, 
hier te vergelijken met een Europa 
Cup finale. En als je zo’n wedstrijd 
aan den lijve hebt meegemaakt is het 
eerste wat je doet als je weer in Ne¬ 
derland terug bent, naar de winkel 
gaanom een honkbalprogramma aan 
te schaffen. 



Voor de Amiga zijn er drie mogelijhe- 
den: Championship Baseball, waarbij 
er een hele competitie gespeeld kan 
worden om vervolgens in de finale te 
komen. De zwakte in dit programma 
zit in het feit dat als er één wedstrijd 
gewonnen wordt, het een peuleschil is 
om in de finale te komen. Kortom elke 
tegenstander is even sterk. De twee¬ 
de keus komt op Earl Weaver Base¬ 
ball, waarbij het vooral op taktisch 
inzicht aankomt. Alleen weggelegd 
voor echte honkbalfanaten die zelf er¬ 
varing hebben met honkbaltaktieken. 

Zelf prefereer ik Hardball wat uitblinkt 
in zijn grafische kwaliteiten en in de 
belangrijke rol van de pitcher(werper). 
Een spel dat leuk blijft omdat, hoe 
goed je het ook kan, de computer zich 
de ene keer laat inmaken om de ande¬ 
re keer van zijn tegenstander niets 
over te laten. Hardball is alléén of met 
z’n tweeën te spelen, met de muis of 
met de joystick. Vooraf heeft men de 
keuze om met een Desinated Hitter 
(aangewezen Slagman) te spelen of 
niet. Deze vervangt dan de pitcher 
met het slaan. Deze keuze houdt ver¬ 
band met het feit dat in de National 
League met een aangewezen slag¬ 


man wordt gespeeld en in de Ame¬ 
rican League de pitcher zelf slaat. De 
All-Stars en de Champs zijn de teams 
die spelen en elk team heeft de keuze 
uit totaal 25 spelers, verdeeld over 15 
veldspelers en 10 pitchers. Hieruit 
blijkt wel het belang van een pitcher. 
Want net als in de werkelijkheid lij¬ 
ken 10 pitchers wat aan de ruime kant. 
Echter, de pitcher is de belangrijkste 
speler van een team en voldoet deze 
speler niet aan de verwachtingen dan 
staat er op ieder moment een vervan¬ 
ger klaar. En hoewel je met Hardball 
de pitcher zelf in de hand hebt omdat 
je kan aangeven of de pitcher wijd of 
slag moet gooien, wordt deze lang¬ 
zaam steeds vermoeider waardoor 
de tegenstander de bal steeds makke¬ 
lijker kan raken. Het is dus noodzaak 
om regelmatig te wisselen,waarbij- 
geen pitcher gelijk is. Zo zijn er rechts- 
en linkshandige werpers met elk vier 
soorten worpen zoals een slider, 
sinker, change up, offspeed, een 
screw-, een curve- en een fast ball. 
Door al deze verschillende worpen is 
het voor de slagman zeer moeilijk om 
zich te concentreren of de bal wel of 
niet over de plaat zal gaan. Maar ook 
de veldspelers hebben hun speciali¬ 
teiten. Zo kan de één beter slaan en 
de ander sneller lopen, waardoor hij 
het honk eerder bereikt en zo makke¬ 
lijker het honk kan stelen dan een an¬ 
der. Ook deze spelers zijn te vervan¬ 
gen, maar doe je dat niet goed en 
staan de spelers op een verkeerde 
plaats in het veld, dan komt het zelden 
voor dat dezen een bal vangen. Men 
is gewaarschuwd. Behalve het ver 
wegslaan van de bal is het ook moge¬ 
lijk om op zeer geraffineerde wijze een 
stootslag neer te leggen om een spe¬ 
ler, die al op de honken staat, verder 
te brengen. Het ligt aan de snelheid 
van de slagman of deze ook safe op 
het eerste honk aankomt. Een min¬ 
puntje van het programma is dat een 
stootslag niet te combineren valt met 
het stelen van een honk. Iets wat wel 
in de Maclntosh-uitvoering van Hard¬ 
ball mogelijk is. Wel een mogelijkheid 
betreft het geven van opzettelijk 4- 
wijd, waardoor de kans op het maken 
van een dubbelspel groter is. Hardball 
heeft mij in ieder geval tot een nog 
grotere honkballiefhebber gemaakt. 
Het is nu alleen wachten op een pro¬ 
gramma wat het competitie-element 
van Championship Baseball en de 
taktiek van Earl Weaver Baseball 
combineert met de grafische hoogte¬ 
punten van Hardball. Hardball is te 
koop voor nog geen vijf tientjes. 


BARBARIAN 

Wie kan er in de huid van Hegor de 
Barbaar kruipen? Ben jij de krijger die 
dat vreselijke koninkrijk, dat zich on¬ 
der de grond van Durgan bevindt, wil 
binnen treden? Een ondergrondse 
wereld, geterroriseerd door de kwade 
Necron. Jouw opdracht: vernietig het 
leger van de vervloekte Necron. De 
beloning: de kroon van het koninkrijk. 
Ben jij diegene die kan overleven? 



In de huid van Hegor, de meest be¬ 
roemde drakendoder die er is, is het 
de bedoeling om het kristal, dat het 
symbool van kwaad is en beschermd 
wordt door Necron, te vernietigen. 
Maar voordat het ogenblik van ver¬ 
nietiging is aangekomen wacht een 
lange weg vol verrassingen. Maar 
liefst 46 verschillende schermen waar 
vele tegenstanders overwonnen moe¬ 
ten worden. Aanvallen van kikkers, 
beren, dolle honden, schildwachten, 
eenhoorns en holbewoners moeten 
overleefd worden. Maar ook bruggen 
die instorten en rotsblokken die van 
bovenaf komen, standbeelden die 
een poging wagen om je te onthoof¬ 
den, boogschutters die uit kelderlui¬ 
ken te voorschijn komen en slangen 
die opeens uit een muur op je af ko¬ 
men. Het hoort allemaal tot die lange 
weg waar geen eind aan lijkt te ko¬ 
men. Maar gelukkig is het mogelijk om 
onderweg belangrijke hulpmiddelen te 
verzamelen. Een zwaard alléén blijkt 
namelijk niet voldoende te zijn. De 
boog met bijbehorende pijlen, her en 
der verspreid, en het schild wat hét 
wapen blijkt te zijn om Necron aan te 
vallen, ze zijn onmisbaar. Vooral de 
boog lijkt een obsessie te worden. Het 
onverslaanbare ijzeren mannetje kost 
al je levens en je humeur. Maar toch, 
als je langer kijkt dan je neus lang 
is,is de oplossing nabij. De boog is 
tenslotte nodig om o.a. de draak te 
verslaan. Hegor mag drie keer 
verslagen worden, echter de vierde 
keer is fataal en kun je weer over¬ 
nieuw beginnen. Barbarian kent geen 
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tussentijdse save-procedure waar¬ 
door frustraties al gauw naar boven 
komen wanneer voor de zoveelste 
keer de kikker overwonnen moet wor¬ 
den. De neiging is er dan ook om non¬ 
chalant te worden, wat onmiddelijk af¬ 
gestraft wordt. Wanneer Hegor echt 
verslagen is zal de voorlopige score 
bestaan uit het percentage schermen 
wat tot op dat moment bereikt is. Bij de 
50% is het ogenblik aangekomen om 
het kristal van Necron te vernietigen. 
Dan ligt dezelfde weg terug nog open, 
waar blijkt dat elk eerder vernietigd 
wezen weer nieuw leven is in¬ 
geblazen. Helaas, op de plaatsen 
waar de pijlen lagen zijn geen nieuwe 
neergelegd, wat betekent dat er zuinig 
mee omgesprongen moet worden. 
Het is de bedoeling om in een snellere 
tijd weer terug te gaan dan de heen¬ 
reis in beslag heeft genomen. Lukt 
dat, dan wordt Hegor op het eind 
beloond met een grafisch volmaakt 
plaatje. Lukt het echter niet op tijd dan 
wordt Hegor de Barbaar overspoeld 
met lava uit de vulkaan en moet er dus 
van het begin af aan weer worden 
begonnen. Het heeft mij vier weken 
lang, avond aan avond, bezig gehou¬ 
den om de Barbarian te bedwingen. 
Ondanks dat de frustraties hoog 
opliepen bleef Barbarian een versla¬ 
ving. Een mooie verslaving. Er blijft 
mij echter nog wel één vraag dwars 
zitten. Waar bevinden de afbeeldin¬ 
gen zich die op de verpakking staan? 
In ieder geval niet op de diskette. De 
prijs van Barbarian bedraagt Fl. 89,= 

TESTDRIVE 

Een gerenommeerd autovakblad wil 
voor zijn volgende uitgave een test 
beschrijven van vijf verschillende 
sportwagens. Daar is een uitstekende 
coureur voor nodig en de keuze is op 
jouw gevallen. De vijf wagens bestaan 
uit modellen waar alleen over ge¬ 
droomd kan worden. Een Porsche 
911 Turbo, winkelwaarde $ 50.000 
met een motorinhoud van 3300 cc, 4- 
baks handschakeling uitgevoerd met 
Dunlop SP Super Sport D4 banden, 
een topsnelheid van 245 km/uur, trekt 
het snelst op vanuit stilstand naar 100 
km/uur in precies 5 seconden. Of wat 
dacht je van een rode Ferrari Tes- 
tarossa, 5-baks met Goodyear Eagle 
VR 50 banden, winkelwaarde 
$120.000 en een topsnelheid van 300 
km/uur. De duurste auto is de Lam¬ 
borghini Countach ($ 130.000), een in 
rood (waarschijnlijk de lievelingskleur 
van de programmeur) uitgevoerde 5- 
bak met een motorinhoud van 5167 
cc. Met zijn Pirelli P7R banden bereikt 


deze wagen als snelste de 160 km/uur 
vanuit stilstaande positie: 12 secon¬ 
den. De topsnelheid ligt op 277 
km/uur. Daar tegenover staat de 
goedkoopste auto uit de serie, toch 
nog altijd zo’n slordige $ 35.000. We 
spreken dan over de Chevy Corvette, 
een 4-bak met als extra de OD 3 " Met 
dezelfde banden als onder de Ferrari 
komt deze auto toch nog altijd op een 
topsnelheid van 250 Km/uur. 



Dan blijft alleen nog de zwarte Lotus 
Turbo Esprit over, in mijn ogen de 
mooiste van het stel. Een 5-bak met 
Goodyear NTC VR 60 banden en een 
top van net boven de 240 Km/uur. 
Winkelwaarde rond de $ 55.000. Als 
testrijder neem je uiteraard achter het 
stuur plaats, draait vervolgens het 
raampje naar beneden en scheurt 
weg. In de cabine bevindt zich het 
dashboard met daarin de snelheids¬ 
meter en de toerenteller. Boven de 
voorruit bevindt zich een radarcontrol- 
lemeter waarvan de lampjes rood 
gaan branden als er in de buurt ge- 
crontroleerd wordt op snelheid. Een 
luxe waar veel automobilisten wel in¬ 
teresse in zullen hebben. Dan is er 
nog een achteruitkijkspiegel waar bij¬ 
voorbeeld een politiewagen mee ont¬ 
dekt kan worden. Eigenlijk is het dan 
al te laat, de bon komt op de ruit. Voor 
de rest is het zaak om gas te blijven 
geven en af te remmen voor scherpe 
bochten en langzaam rijdend verkeer 
en tijdig van versnelling te schakelen. 
Mocht dat onverhoopt toch verkeerd 
gaan of een tegenligger is niet meer te 
ontwijken dan volgt er een enorme 
barst in de voorruit wat betekent: over¬ 
nieuw beginnen. 

Tijdens het bijtanken van brandstof 
onderweg wordt de score vernomen 
die tot op dat moment behaald is. On¬ 
danks de snelheidsborden langs de 
weg is het toch noodzaak snelheid te 
behouden. Bij een te lage snelheid 
zoekt het autoblad wel een betere 
testrijder. Mocht men tevreden zijn 
over de resultaten van de testrijder 
dan wacht er een plezierige verras¬ 
sing in het dashboardkastje. 


IMPACT 

Het zoveelste "Break''-spelletje op de 
computer. Er zou echter niet over ge¬ 
schreven worden als het spel geen bij¬ 
zondere kwaliteiten zou bezitten. Ui¬ 
teraard blijft het kenmerk om met het 
batje het balletje tegen de blokjes te 
schieten waardoor deze verdwijnen. 
Sommige verdwijnen meteen, ande¬ 
re pas als deze drie of vijf keer geraakt 
zijn. Het spel wordt moeilijker ge¬ 
maakt doordat er verschillende Aliëns 
naar beneden komen waarvan de 
meeste alleen punten opleveren bij 
vernietiging, andere zorgen voor een 
abrupte stilstand van het batje wat 
heel vervelend kan zijn als het balletje 
juist op de terugweg is. De gele bak¬ 
jes die opgevangen kunnen worden 
zorgen ervoor dat er gebruik kan wor¬ 
den gemaakt van bepaalde hulpstuk¬ 
ken. Hoe meer bakjes er opgevangen 
zijn des te beter het hulpstuk dat ge¬ 
bruikt kan worden. Zo zijn er mag¬ 
neten die het balletje op het batje laten 
plakken, is er de mogelijkheid on¬ 
zichtbare blokjes te kunnen zien, het 
batje te verbreden , het batje als laser¬ 
wapen te gebruiken of het balletje als 
functie mee te geven dat het overal 
doorheen gaat en niet meer door de 
blokjes teruggekaatst wordt. Dit laat¬ 
ste hulpmiddel is te verkrijgen door 
maar liefst negen bakjes op te van¬ 
gen.Het scherm is dan al half leeg. 
Wordt er geen gebruik gemaakt van 
de hulpmiddelen dan is elk opgevan¬ 
gen bakje goed voor 1000 bonuspun- 
ten, te verekenen bij het voltooien van 
het scherm. Bij vroegtijdig verlies van 
het balletje is het algelopen met het 
gebruik maken van het hulpmiddel of 
het eventuele bonusbestand. Bij elke 
50.000 punten volgt een extra bal. Im¬ 
pact beschikt over 80 standaard 
schermen. Bij het bereiken van elk 
tiende scherm verschijnt het pass¬ 
word in beeld waarmee de volgende 
keer vanaf dat punt begonnen kan 
worden. Het password ROAD geeft 
de mogelijkheid om vanaf scherm 71 
te beginnen, maar zonder ervaring in 
de voorafgaande schermen is dat 
haast een onmogelijke taak, wel geeft 
het enig idee wat zo’n beetje de moge¬ 
lijkheden zijn. De kracht van Impact is 
dat het de mogelijkheid geeft om zelf 
schermen te maken. Daarvoor staan 
nog 48 schermen ter beschikking om 
deze zo moeilijk te maken als je zelf 
wil. En om daar vandaan te beginnen 
is het password USER. Impact kost 
ƒ 59,- en is voor 1 speler. 

Henk Seppen. 
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De beginnende programmeur kan met hulp van deze serie artikelen over Commodo- 
re-Basic stap voor stap leren om zelf meer te doen met deze computers, dan alleen 
het spelen van voorgekookte spelletjes en het gebruiken van andere gekochte soft- 
ware-applicaties. Stap voor stap worden in deze cursus door Jan Bodzinga de elemen¬ 
taire feiten van Basic behandeld. De stof is daarbij bewust erg eenvoudig en duidelijk 
gehouden, zodat ook de volslagen ‘leek’ op programmeer-gebied erdoor kan uit¬ 
groeien tot een redelijk programmeur. Maar ook voor de meer gevorderde Basic-ken- 
ners zit ongetwijfeld nog wel het één en ander in deze cursus, waarmee z’n kennis kan 
worden aangevuld. 


Basis Basic 

Deel 18: Een Database (Slot) 

I n deze les worden de laatste routines behandeld en in het complete pro¬ 
gramma gepast, om het door ons zelf geschreven database-programma te 
completeren. Het gaat hierbij in de eerste plaats om diverse routines waar¬ 
mee we zowel op disk als cassette de ingevoerde adressen kunnen bewa¬ 
ren en weer in lezen. 


Het is dan eindelijk zover, dat we in 
deze aflevering van Basis Basic het 
databaseprogramma kunnen voltooi¬ 
en. We hebben de laatste maanden 
nogal wat uitstapjes gemaakt, waarbij 
we niet altijd even efficiënt te werk zijn 
gegaan waar het de progressie van 
het onderhanden Basic programma 
betreft. Maar ten slotte is deze serie 
bedoeld, om iets te leren over Basic 
en wat daar mee samengaat en niet in 
de eerste plaats om snel een goedlo¬ 
pend programma te kunnen overty¬ 
pen uit het blad. Degenen die dat wil¬ 
len, verwijs ik meteen naar onze lis- 
tingrubriek. Daar zijn zeker program¬ 
ma’s gepubliceerd, die qua verwer- 
kingsmogelijkheden uitsteken boven 
onze zelfgebouwde database. Het 
verschil zit echter in de wijze waarop 
dit programma tot stand is gekomen. 
Ik denk dat we rustig kunnen zeggen, 
dat voor iedere regel in dit toch al lan¬ 
ge stuk Basic programmatuur wel een 
toelichting gegeven is. Bovendien zijn 
alle routines zo opgezet, dat de pro¬ 
grammeur in spé begrijpt waarvoor de 
Basicopdrachten worden gebruikt, zo¬ 
dat hij ze ook in andere opzichten zal 
kunnen toepassen. 


Programma structuur 

Omdat er nogal wat subroutines in 
ons programma voorkomen, hebben 
we indertijd een opzet gemaakt van 
de de listing. We kunnen aan de hand 
van de programmaregel-indeling de 
verschillende subroutines schrijven. 
Met hulp van een menustructuur roe¬ 
pen we via de door de gebruiker ge¬ 


maakte keuze de juiste subroutine 
aan. De volgende onderdelen vinden 
we terug in ons programma: 


schrijven nog. Laten we met deze 
laatste maar eens beginnen. 


0000 - 0100 REM-titel en gegevens 

0100-0300 INITIALISATIE 

0300 - 1000 Diverse subroutines 

1000 - 2000 Programma-start (menu)| 

2000-3000 Toevoegen 

3000 - 4000 Muteren 

4000 - 5000 Verwijderen 

5000 - 6000 Zoeken 

6000-7000* Sorteren 

7000-8000* Printen 

8000 - 9000 Inlezen 

9000 - 9500* Wegschrijven 

9500 - 9999* Stoppen 

Elk van deze onderdelen kunnen we 
beschouwen als aparte modules in 
het programma, die uiteindelijk tot één 
listing worden samengevoegd. In prin¬ 
cipe zou het mogelijk zijn, om voor alle 
modules (bewerkingen) een apart 
programma te schrijven en te runnen. 
Dit is echter een tijdrovende en on¬ 
handige bezigheid. Het is veel beter, 
om al deze modules in één program¬ 
ma onder te brengen, waarbij met 
hulp van een keuzemenu door de ge¬ 
bruiker kan worden aangegeven wel¬ 
ke bewerking er moet worden uitge¬ 
voerd. In onze structuur vind je vanaf 
regel 1000 de programma-start, waar¬ 
bij het menu naar voren komt. 

De met een asterix (*) gemerkte on¬ 
derdelen hebben we nog niet ge¬ 
schreven, waaruit blijkt, dat er nog 
maar een paar routines overblijven 
om het geheel compleet te maken. 
Naast het sorteren en stoppen volgen 
de programmadelen inlezen en weg¬ 


Wegschrijven 

In de vorige twee afleveringen zijn we 
uitvoerig ingegaan op het werken met 
zowel cassette als diskdrive voor het 
bewaren van programma’s en data¬ 
bestanden. Zoals je nu wel zult weten 
zit er met betrekking tot het program¬ 
meren nogal wat verschil tussen. De 
tape verlangt -zeker in Commodore- 
Basic- een afwijkende benadering. 
We kunnen echter zonder veel proble¬ 
men de routines zo in elkaar steken, 
dat er zowel voor disk als cassette een 
leuke routine uit de bus komt rollen. 

Diskvlag 

Om dit te doen, zullen we eenextra 
globale variabele-vlag invoeren, 
waarmee we aan het programma 
doorgeven of we tape of disk gebrui¬ 
ken. Hoewel er bij de Commodore 
machines wel trucjes zijn, om via 
PEEK en POKE opdrachten door de 
computer zelf te laten bepalen, welk 
opslagdevice wordt gebruikt, beslui¬ 
ten wij, om dit aan de gebruiker over 
te laten. Zeker ook, omdat er nogal 
wat machines draaien, die zowel tape 
als diskettes gebruiken, en dan is een 
dergelijke test niet betrouwbaar meer. 
De vlag die we in ons programma 
brengen noemen we DSK en de initia¬ 
lisatie gaat als volgt: 

190 DSK = 0 : REM vlag disk/tape 
200 REMinit 
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210 GOSUB 900 : REM keuze lezen 

219 REM OPTIE DISK/TAPE 

220 PRINT CHRS(147): REM 
SCHERM SCHOON 

230 PRINT: PRINT: PRINT: PRINT 
240 PRINT " Diskdrive gebruiken 
(J/N) 

250 GOSUB 850 : REM JA/NEE 
input 

260 IF T$="j" OR T$ = "J" THEN 
DSK=1: REM VLAG ZETTEN 
299 GOTO 1000: REM begin 
programma 

Bovenstaande regels kunnen in het 
bestaande INITIALISATIE gedeelte 
van het programma worden geschre¬ 
ven, waardoor iedere keer bij het star¬ 
ten de vlag DSK standaard op 0 komt 
te staan (regel 190), waarmee casset- 
te-gebruik wordt aangeduid. Door de 
Ja/Nee vraag van regels 220 - 260 be¬ 
staat de mogelijkheid DSK de waarde 
1 toe te kennen. Deze vlag blijft ver¬ 
volgens het hele programma op de 
gegeven waarde (FALSE/TRUE) 
staan, waardoor we overal kunnen 
testen op het al dan niet aanwezig zijn 
van een diskdrive. 


Routine 

Zoals we in één van de vorige afleve¬ 
ringen hebben gezien, is de standaard 
routine voor het sequentieel weg¬ 
schrijven van tape min of meer gelijk 
aan de volgende subroutine: 

10 REM SCHRIJVEN DATA 
BESTAND OP TAPE 
20 REM SEQUENTIEEL BESTAND 
30 REM STRINGS EN 
NUMERIEKEN 
90 

100 REM OPENEN TAPE KANAAL 
110 OPEN 1,1,1 ,"TEST" :REM 
OPENEN KANAAL=1, 
DEVICE=1, SA=1(WRITE), 
TEST=naam 
120 FOR I = 1 TO 256 
130 A$ = CHR$(I) 

140 PRINT#1,I, A$:REM PRINT 
NAAR KANAAL 1 
150 NEXTI 

160 CLOSE 1 :REM SLUITEN 
KANAAL 1 
200 END 

We hoeven hier niet lang bij stil te 
staan, omdat de wijze waarop dit in z’n 
werk gaat nui wel bekend zal zijn. Wat 
we echter wel willen doen, is de voor¬ 
gaande listing voor het wegschrijven 
van een bestand naar tape vergelijken 
met de hiernavolgende, die exact de¬ 
zelfde bewerking uitvoert, maar dan 
voor het wegzetten van een zelfde be¬ 
stand naar een floppy-disk: 

10 REM Maken data bestand op 

disk 


20 REM Sequentieel bestand 
30 REM Strings en numerieken 
90 

100 REM Openen kanaal 
110 OPEN 2,8,2,"TEST1,SEQ, 
WRITE" :REM Openen 
KANAAL=2, DEVICE=8, 

SA=2, TEST1=naam 
120 FOR I = 1 TO 256 
130 A$ = CHR$(I) 

140 PRINT#2,I, A$:REM Print naar 
kanaal 2 
150 NEXTI 

160 CLOSE 2 :REM Sluiten 
KANAAL 1 
200 END 

De gelijkenis tussen deze beide routi¬ 
nes is treffend, zoals iedereen kan 
zien. Het is dan ook niet moeilijk om 
voor de paar kleine verschillen tussen 
beide listings een conditie-controle te 
maken, waardoor in één routine beide 
devices kunnen worden afgehandeld. 
Daarnaast zullen we natuurlijk ook de 
weg te schrijven data moeten aanpas¬ 
sen aan de array die in ons databe¬ 
stand wordt opgebouwd. Laten we 
maar aan de slag gaan. 

De tweedimensionale array die in het 
programma wordt gebruikt om de 
adresrecords in het geheugen te zet¬ 
ten vinden we onder de naam A$ 
(XXX,YY). In de originele listing kun je 
de inhoud en manier van verwerking 
van deze array het beste bekijken in 
de regels 120, 130 en 420-425: 

120 TT=0 : REM totaalaantal 
records 

130 DIM A$(300,5) : REM aantal 
records max. 

420 DATA "Naam 

421 DATA "Voorletters 

422 DATA "Straat en nummer " 

423 DATA "Postkode 

424 DATA "Woonplaats 

425 DATA "Telefoon 

Wezien hier de naam TT voor het to¬ 
taal aantal records. De door de ge¬ 
bruiker opgeslagen data moet nu naar 
disk of tape worden gezet. Het meest 
voor de hand liggend is het gebruik 
van FOR..TO..NEXT.. lussen, zoals 
we die ook in het voorbeeld-program- 
ma aantreffen. Het middengedeelte 
van de routine om het bestand weg te 
zetten komt er dan zo uit te zien: 

9099 REM Loop met records en 
velden 

9100 FOR 11 = 1 TO TT 
9110 FOR JJ = 0TO5 

9120 PRINT#2, A$(II,JJ) :REM 
SCHRIJF RECORD 
9130 NEXT JJ , II 

Het einde van deze schrijfroutine is 
ook niet moeilijk samen te stellen, 
want dit bestaat in feite slechts uit het 


sluiten van het schrijfkanaal met hulp 
van de opdracht CLOSE. Daarnaast 
kunnen we nog een tekstregel op het 
scherm zetten, waarmee we aange¬ 
ven, dat de operatie is beëindigd: 

9199 REM Af handelen schrijven 

9200 CLOSE 2 : REM Sluiten 
kdnsdl 

9210 PRINT "WEGSCHRIJVEN 
KLAAR * Raak toets *" 

9220 GOTO 800 : REM INCL. 
RETURN !! 

Kort en duidelijk, hoewel we een klein 
grapje hebben uitgehaald in regel 
9220. Daar wordt namelijk gespron¬ 
gen met een GOTO naar een andere 
subroutine. In regel 800 vv vinde we 
de routine om een toets van het key¬ 
board te vragen. Normaal gesproken 
wordt via een RETURN vanuit regel 
830 teruggesprongen naar het onder¬ 
deel wat deze routine aanroept. In ons 
geval misleiden we de Basic interpre- 
ter door aan het einde van de schrijf¬ 
routine via een GOTO naar een ande¬ 
re routine te springen, waarna de RE¬ 
TURN uit regel 830 door de Commo¬ 
dore wordt uitgelegd als een RE¬ 
TURN van de wegschrijfroutine. Effi¬ 
ciënt, maar beslist niet zoals het hoort 
en een manier van programmeren om 
de zo gevreesde spaghetti Basic in de 
kaart te spelen. We zullen het dan ook 
veranderen in een correcte, leesbare 
listing door: 

9199 REM Afhandelen schrijven 

9200 CLOSE 2 : REM Sluiten 
kanaal 

9210 PRINT "WEGSCHRIJVEN 
KLAAR * Raak toets *" 

9220 GOSUB 800 : REM Haal toets 
9230 RETURN 

Nu weten we tenminste precies, waar 
dit listingonderdeel afsluit. 

Het begin van de schrijfroutine is het 
enige gedeelte waar we nog iets aan 
zullen moeten doen. Aan de ene kant 
zullen we een goede bestandsnaam 
voor onze adresgegevens moeten 
kiezen, anderzijds is het erg belangrijk 
het onderscheid tussen disk en tape 
nog vast te stellen en dienovereen¬ 
komstig te laten verlopen. We hebben 
daar een paar gegevens in variabelen 
voor beschikbaar, die we voor de hel¬ 
derheid nog eens in dit gedeelte van 
de listing zullen opnemen: 

9000 REM Wegschrijven 

9005 REM TT= Totaal aantal 
records 

9006 REM DSK = Disk/tape vlag 

9007 REM II,JJ Lustellers 

9008 REM Filenaam "ADRES" 

9009 : 

9010 GOSUB 500: REM Kopprint 
9020 IF DSK = 1 THEN OPEN 
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2,8,2,"@ADRES,SEQ,WRITE" 
9030 IF DSK = 0 THEN OPEN 

2.1.1, " ADRES" 

We zien, dat in 9020 en 9030 afhan¬ 
kelijk van de waarde van vlag DSK 
een andere syntax gekozen is voor 
het open van het juiste bestand. Let 
daarbij ook op de die bij de disk- 
regel aan de filenaam vooraf gaat. Dit 
teken geeft aan, dat een eventueel 
oud bestand met dezelfde naam door 
dit nieuwe bestand moet worden over¬ 
schreven. 

Het totaal van deze regels comple¬ 
teert de schrijfroutine naar zowel tape 
als disk: 

9000 REM Wegschrijven 

9005 REM TT= Totaal aantal 
records 

9006 REM DSK = Disk/tape vlag 

9007 REM II,JJ Lustellers 

9008 REM Filenaam "ADRES" 

9009 : 

9010 GOSUB 500: REM KOPPRINT 
9020 IF DSK = 1 THEN OPEN 

2.8.2, "@ADRES,SEQ,WRITE" 
9030 IF DSK = 0 THEN OPEN 

2 11 "ADRES" 

9099 REM LOOP MET RECORDS 
EN VELDEN 

9100 FOR II = 1 TOTT 
9110 FOR JJ = 0 TO 5 

9120 PRINT#2, A$(ll,JJ) :REM 
SCHRIJF RECORD 
9130 NEXT JJ , II 

9199 REM Afhandelen schrijven 

9200 CLOSE 2 : REM Sluiten 
k a naal 

9210 PRINT "WEGSCHRIJVEN 
KLAAR * Raak toets *" 

9220 GOSUB 800 : REM Haal toets 
9230 RETURN 


Inlezen 

Het teruglezen van de adresrecords 
van een extern apparaat verloopt in 
principe identiek aan het wegschrij¬ 
ven. Alleen worden nu de (lege) array- 
velden van A$(XXX,YY) gevuld van 
disk of tape. Daarbij verliezen we de 
eventueel aanwezige gegevens uit 
het computergeheugen. 

De manier om vanaf een diskdrive ge¬ 
gevens in te lezen hebben we in een 
voorgaande aflevering uitvoering be¬ 
handeld. Deze listing zullen we als 
voorbeeld gebruiken voor het inlezen 
van ons bestand, waarbij we uiteraard 
ook de taperoutine niet vergeten: 

10 REM Lezen data bestand van 
disk 

20 REM Sequentieel bestand 
30 REM Gebruik strings 
90 

100 REM Openen kanaal 
110 OPEN 1,8,2,"TEST,SEQ, 


READ" :REM OPENEN 
KANAAL=1, DEVICE=8, 

SA-2, TEST=naam 
120 INPUT#1,A$ :REM LEES VAN 
KANAAL 1 

150 PRINT A$ : REM Zet gelezen 
getal op scherm 
160 IFST = 0 THEN 120 
170 CLOSE 1 :REM SLUITEN 
KANAAL 1 
200 END 

Met hulp van de schrijfroutine is het nu 
ook niet ingewikkeld meer om voor het 
teruglezen van de data een goedslui- 
tend programma onderdeel te maken: 

8000 REM Inlezen 

8005 TT=-1 : REM Totaal aantal 
records -1 

8006 REM DSK = Disk/tape vlag 

8007 REM JJ Lusteller 

8008 REM Filenaam "ADRES" 

8009 REM ST = status van ’t file : 

8010 GOSUB 500: REM KOPPRINT 
8020 IF DSK = 1 THEN OPEN 

2,8,2,"ADRES,SEQ,READ" 
8030 IF DSK = 0 THEN OPEN 
2,1,0,"ADRES" 

8099 REM GOTO loop met records 
en velden 

8100 TT=TT+1:REM Record teller 
8110 FOR JJ = 0 TO 5 

8120 INPUT#2, A$(TT,JJ) :REM 
LEES RECORD 
8130 NEXT JJ 

8140 IF ST = 0 THEN 8100:REM 
LEES volgende 

8199 REM Afhandelen schrijven 

8200 CLOSE 2 : REM Sluiten 
kanaal 

8210 PRINT "INLEZEN ";TT; 

"RECORDS * Raak toets *" 
8220 GOSUB 800 : REM Haal toets 
8230 RETURN 

Hoewel de algoritme van het lezen 
niet afwijkt van de schrijfroutine, krij¬ 
gen we hier toch met een ander feno¬ 
meen te maken, en dat is het bepalen 
waar het einde van het te lezen be¬ 
stand zich bevindt, met andere woor¬ 
den ‘Hoeveel records staan er op de 
tape/disk’ en het vervolgens op een 
goede manier inlezen van deze be¬ 
paalde hoeveelheid records. 

Voor het eerste probleem hebben we 
ST (de STATUS-byte) gebruikt, die 
zodra ergens iets fout gaat z’n OK- 
waarde (0) verandert in een andere 
waarde. Zolang ST nog nul is kunnen 
we op z’n minst nog één record met 6 
velden lezen. 

Om intern de zaak op een juiste ma¬ 
nier in de gaten te houden, gebruiken 
we de echte TT (recordteller) tijdens 
het inlezen. Aan het begin van dit on¬ 
derdeel stellen we deze variabele op 
nul. We doen dit op een niet alledaag¬ 
se manier, doordat we eerst TT op -1 


zetten (regel 8005), waarna deze tel¬ 
ler voordat er data ingelezen wordt, 
door de normale telling TT=TT+1 op 
nul komt te staan. Op deze wijze heb¬ 
ben we minder opdrachten nodig. 


Sorteren 

Er ontbreken nu nog maar twee routi¬ 
nes aan het programma. Een belang¬ 
rijk (en pittig) onderdeel is het goed en 
snel sorteren van de adressen op alfa¬ 
betische volgorde. We hebben daar in 
de lessen 10,11 en 12 zeer uitvoerig 
aandacht aan besteed, als voorberei¬ 
ding op dit programma. Het algoritme 
wat we hier gebruiken is min of meer 
gelijk aan de Quicksort, die we als lis¬ 
ting al eens hebben gepubliceerd. We 
zullen volstaan met het geven van een 
aangepaste listing: 

5999 REM Sorteren van bestand 

6000 GOSUB 500 : REM kopprint 

6010 PRINT:PRINT"Geef te 
sorteren veld :" 

6011 FOR II = 0 TO 5 

6012 PRINT 11+1 ;"-";VN$(ll) 

6013 NEXT II 

6020 PRINT : PRINT "Maak een 
keuze '*■ 

6025 GOSUB’800 : REM lees toets 

6027 KK= VAL(T$) 

6028 IF KK<1 OR KK>7 THEN 6025 
6030 IF KK = 7 THEN 

RETURN:REM menu 
6035 VL=KK-1 : A$(TT+1,VL)= 
CHR$(255):REM veldsoort 
6040 N = TT : REM aantal te 
sorteren 

6050 REM VL = VELD ofset in array 
6060 REM INIT QUICK-SORT 
6070 PRINT "BEGIN SORTEREN" 
6080 REM DIM ST((LOG(N)/LOG(2) 
+4), 1) :REM TEMP-ARRAYS 
6090 T = 1: ST(1,0) = 1 :ST(1,1) = N 
6100 L = ST(T,0) : R = ST(T,1): 

REM Waarden stack 
6110T = T-1 

6120 X = L: Y = R: REM Tellers 
6130 X$ = A$( ( L + R)/2,VL):REM 
Helft 

6140 IF A$(X,VL) < X$ THEN X = X 
+ 1 : GOTO 6140 
6150 FOR V = 1 TO 10000! 

6160 IF A$(Y,VL) > X$ THEN Y = Y - 
1 :NEXT V 
6170 V = 10000! 

6180 IF X = Y THEN X = X + 1: Y = 

Y -1 : GOTO 6140 
6190 IF X < Y THEN GOSUB 6310 : 

GOTO 6140 :REM WISSEL 
6200 IF X < R THEN T = T + 1 : 

ST(T,0)= X: ST(T,1) = R 
6210 R = Y 

6220 IF L < R THEN 6120 
6230 IF T > 0 THEN 6100 
6240 REM Klaar met sort 
6260 RETURN 
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6300 REM Wissel hele 
array-dimensie 
6310 FOR II = 0 TO 5 
6315 TX$ = A$(X,II) 

6320 A$(X,II) = A$(Y,II) 

6330 A$(Y,!I) = TX$ 

6340 NEXT IS 
6350 X = X + 1 
6360 Y = Y -1 
6370 RETURN 

Er zijn nog heel wat pagina’s vol te 
schrijven over deze voor Basic zeer 
snelle sorteerroutine, maar daar ont¬ 
breekt hier de ruimte voor. Wil je dus 
meer hiervan weten, dan raad ik je 
sterk aan, om de eerder gepubliceer¬ 
de artikelen nog eens goed door te le¬ 
zen. Denk er wel om, dat dit gedeelte 
letter voor letter wordt overgetypt, 
want bij het sorteren op deze manier 
is echt iedere Byte van groot belang. 
Eén teken verkeerd, en niets lijkt er 
meer te werken. Sorteren doet het 
programma dan in elk geval niet. 

Afsluiten 

Het laatste onderdeel van dit pro¬ 
gramma is ook meteen het einde van 

De complete listing: 

10 REM Menu gestuurde 
DATABASE 

20 REM voor adressenbestand 

30 REM Commodore-lnfo 1987 

40 REM 870601/v.1.05 

100 REM initialisatie 
110 REM 

120 TT=Q : REM totaalaantal 
records 

130 DIM A$(300,5) : REM aantal 
records max. 

140 KZ=0 : REM keuze 
150 I = 0 : REM temp.var 
160 DIM KZ$(10): REM 
keuzestrings 

170 DIM ST((LOG(300)/LOG(2)+4), 
1) :REM TEMP-ARRAYS 
180 DIM VN$(7): REM veldnamen 
200 REMinit 

210 GOSUB 900 : REM keuze lezen 

219 REM OPTIE DISK/TAPE 

220 PRINT CHRS(147) : REM 
scherm schoon 

230 PRINT: PRINT: PRINT: PRINT 
240 PRINT " Diskdrive gebruiken 
(J/N) 

250 GOSUB 850 : REM JA/NEE 
input 

260 IF T$="j" OR T$ = "J" THEN 
DSK=1: REM VLAG ZETTEN 

299 GOT0 1000 : REM begin 
programma 

300 REM var. wegzetten in array 
310 FOR II = 0 TO 5 

320 A$(AA,I!)=HA$(II) 

325 HA$="" 


het complete pakket. In verhouding 
met de hiervoor beschreven sorteer¬ 
routine stelt het weinig voor. Het gaat 
om het netjes afsluiten van het pro¬ 
gramma. We hebben daar de volgen¬ 
de serie regels voor over: 

9500 REM afsluiten programma 
9510 GOSUB 500 : REM printkop 
9520 PRINT: PRINT : PRINT: PRINT 
9530 PRINT "Stoppen zeker (J/N) 

? 

9540 GOSUB 850 : REM haal toets 
in t$ 

9550 IF T$ = "n" OR T$= "N" THEN 
1000 

9560 REM antwoord = ja 
9999 END 

Al met al weinig nieuws, en je had het 
zelf kunnen verzinnen. Maar eerlijk is 
eerlijk, het is immer nodig een goed 
programma correct af te sluiten, en 
dat gebeurt op deze manier. Als laat¬ 
ste zullen we een listing geven van het 
hele programma, waarin ook de wijzi¬ 
gingen zijn opgenomen die we in dit 
artikel hebben behandeld. Voor het 
overige wil ik nog graag kwijt, dat er 
door iedere programmeur nog best de 
nodige wijzigingen en verfijningen aan 


een soortgelijk programma kunnen 
worden geknoopt. Zo zou je kunnen 
denken aan een echte REPORT-lijst 
routine, waarmee door de gebruiker 
aan te geven selectieve lijsten opde 
printer kunnen worden gemaakt. Ook 
de error-checking van de diskdrive 
hebben we bewust buiten dit program¬ 
ma gehouden, al zal ik zeker de laat¬ 
ste zijn om te beweren, dat een derge¬ 
lijke test niet nodig zou zijn. Hoewel 
een diskdrive in veel gevallen feilloos 
werk verricht, komt het ook maar al te 
vaak voor dat er een (gebruikers)fout 
optreedt, waardoor het geheel niet 
meer vlekkeloos functioneert. Zo zijn 
er zeker nog een tiental zaken, die mij 
te binnen schieten, die wel in dit pro¬ 
gramma verwerkt zouden kunnen 
worden. Maar dat kun je zelf doen, 
omdat het geheel zo is opgezet, dat 
het niet moeilijk moet zijn om hele rou¬ 
tines eruit te lichten en te vervangen 
door betere, zelf gemaakte program- 
ma-delen. Ik wens je veel sterkte en 
plezier bij het completeren van dit toch 
wel omvangrijke programma. 

Jan Bodzinga 


330 NEXT 
340 RETURN 

399 REM data keuzemogelijkheden 

400 DATA"KEUZEMENU 
ADRESSENBESTAND" 

410 DATA "Records toevoegen" 

411 DATA "Records wijzigen" 

412 DATA "Records verwijderen" 

413 DATA "Records opzoeken" 

414 DATA "Bestand sorteren" 

415 DATA "Bestand printen" 

416 DATA "Bestand inlezen" 

417 DATA "Bestand wegschrijven" 

418 DATA "Stoppen" 

419 DATA "eind" 

420 DATA "Naam 

421 DATA "Voorletters 

422 DATA "Straat en nummer " 

423 DATA "Postkode 

424 DATA "Woonplaats 

425 DATA "Telefoon 
500 REM printen kop 

510 PRINT CHR$(147) : REM CLS 
520 PRINT ************************ 
******************* 

530 PRINT: PRINT TAB(20-LEN 
(KZ$(KZ))/2);KZ$(KZ):PRINT 
540 PRINT "Aantal records : ";TT 

550 PRINT ************************* 
****************** 

560 PRINT 
570 RETURN 

600 REM menu printen en keuze 
610 GOSUB 500: REM printkop 
620 FOR 1= 1 TO TK 
630 PRINT I;" - KZ$(I) 

640 NEXT I 

650 PRINT : PRINT "Maak een 
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keuze M * 

660 GOSUB’800 : REM lees toets 
670 KZ= VAL(T$) 

680 IF KZ<1 OR KZ > TK THEN 660 
690 RETURN : REM terug met kz 
800 REM inlezen van een toets 
810 GET T$ : REM lees toets 
820 IFT$="" THEN 810 
830 RETURN : REM terug met t$ 
850 REM JA/NEE input 
852 OK = 0 : REM vlag 
855 A$="NnJj": REM 

keuzemogelijkheden 
860 GOSUB 810 : REM input toets 
865 FOR 11= 1 TO LEN(A$) 

870 IFT$ = MID$(A$,11,1) THEN 
OK=1 

880 NEXT II 

890 IF OK=1 THEN RETURN: REM 
met j/n 

895 GOTO 860 : REM opnieuw 

898 END 

899 REM inlezen 
keuzemogelijkheden 

900 1 = 0: TK=0 
910 READ KZ$(I) 

920 IF KZ$(I) = "eind" THEN TK = I 
-1 : GOTO 950 
930 1 = 1 + 1 
940 GOTO 910 
950 FOR I = 0 TO 5 
960 READ VN$(I) 

970 NEXT I 

1000 REM begin programma 
1010 SU=0:KZ=0:GOSUB 600 : 

REM menu 

1020 IF KZ = TK THEN 9500 : REM 
einde 
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1030 ON KZ GOSUB 2000,3000, 
4000,7000,6000,5000,8000, 
9000 

1040 GOTO 1010 : REM opnieuw 
menu 

2000 REM toevoegen aan bestand 
2010 GOSUB 500 : REM printen 
kop 

2020 PRINT 

2030 FOR II = 0 TO 5 

2040 PRINT VN$(II);": 

2050 INPUT HA$(II) 

2060 NEXT II 

2090 PRINT : PRINT "Korrekt 
ingevoerd (J/N)"; 

2100 GOSUB 850 
2110 IF T$="n" OR T$ = "N" THEN 
2000 

2120 TT=TT+1: AA=TT:GOSUB 300 
: REM wegzetten in array 
2130 PRINT:PRINT "Meer records 
invoeren (J/N)"; 

2140 GOSUB 850 
2150 IF T$="n" OR T$ = "N" THEN 
RETURN 
2160 GOTO 2000 

2999 REM Muteren / Wijzigen 

3000 GOSUB 500: REM kopprint 
3005 SU=2: GOSUB 7010 :IF SU = 

2 THEN RETURN 

3010 GOSUB 500: REM KOPPRINT 

3011 FOR II = 0 TO 5 

3012 PRINT VN$(II);": ";A$(I,II) 

3014 NEXT II 

3020 PRINT:PRINT "Wijzigen zeker 

(J/N)" 

3030 GOSUB 850: IF T$= "N" OR 
T$="n" THEN RETURN 
3040 PRINT CHR$(19) : GOSUB 
520: REM PRINT HOME 
3050 FOR II = 0 TO 5 
3060 PRINT VN$(II);": A$(ll); 

3070 INPUT HA$(II) 

3080 NEXT II 

3090 PRINT : PRINT "Korrekt 
ingevoerd (J/N)"; 

3100 GOSUB 850 
3110 IF T$="n" OR T$ = "N" THEN 
3000 

3120 AA=I : GOSUB 300 : REM 
wegzetten in array 
3130 PRINT:PRINT "Meer records 
wijzigen (J/N)"; 

3140 GOSUB 850 
3150 IF T$="n" OR T$ = "N" THEN 
RETURN 
3160 GOTO 3000 

3999 REM verwijderen 

4000 GOSUB 500: REM kopprint 
4010 SU=1: GOSUB 7010 :IF SU = 

1 THEN RETURN 
4020 PRINT:PRINT "Verwijderen 
zeker (J/N)" 

4030 GOSUB 850: IF T$= "N" OR 
T$="n" THEN RETURN 
4040 A$(l,0)="***********":REM 
leegmaken 

4050 REM alle records met 
"*********" verwijderen 


4060 REM bij wegschrijven 
4100 RETURN 

5000 REM printen van bestand 
5010 1=1 : REM recordteller 
5020 GOSUB 500 : RtM printen 
kop 

5030 PRINT:PRINT "Record # :";l 
5040 FOR II = 0 TO 5 
5050 IF LEFT$(A$(i,0),4)="****" 
THEN PRINT " Verwijderd": 
GOTO 5070 

5060 PRINT VN$(II);": ";A$(I,II) 
5070 NEXT II 

5080 1=1+1: IF I > TT THEN 5120 
5090 PRINT:PRINT "Volgende 
record (J/N)"; 

5100 GOSUB 850 
5110 IF T$="j" OR T$ = "J" THEN 
5020 

5120 PRINT:PRINT "TYPE TOETS 


VOOR MENU"; 



5130 GOSUB 800 

5140 RETURN 

5999 REM Sorteren van bestand 

6000 GOSUB 500 : REM kopprint 

6010 PRINT:PRINT"Geef te 
sorteren veld :" 

6011 FOR II = 0 TO 5 

6012 PRINT 11+1 ;"-";VN$(ll) 

6013 NEXT II 

6020 PRINT : PRINT "Maak een 
kouzG H ' 

6025 GOSUB’800 : REM lees toets 

6027 KK= VAL(T$) 

6028 IF KK<1 OR KK >7 THEN 
6025 

6030 IF KK = 7 THEN 

RETURN:REM menu 

6035 VL=KK-1 :A$(TT+1,VL) 

=CHR$(255):REM veldsoort 

6040 N = TT : REM aantal te 
sorteren 

6050 REM VL = VELD ofset in array 

6060 REM INIT QUICK-SORT 

6070 PRINT "BEGIN SORTEREN" 

6080 REM DIM ST((LOG(N)/LOG(2) 
+4), 1) :REM TEMP-ARRAYS 


6090 T = 1: ST(1,0) = 1 : ST(1,1) = N 
6100 L = ST(T,0) : R = ST(T,1): 

REM WAARDEN STACK 
6110 T = T- 1 

6120 X = L: Y = R: REM TELLERS 
6130 X$ = A$( ( L + R)/2,VL):REM 
HELFT 

6140 IF A$(X,VL) < X$ THEN X = X 
+ 1 : GOTO 6140 
6150 FOR V = 1 TO 10000! 

6160 IF A$(Y,VL) > X$ THEN Y = Y - 
1 :NEXT V 
6170 V = 10000! 

6180 IF X = Y THEN X = X + 1: Y = 

Y -1 : GOTO 6140 
6190 IF X < Y THEN GOSUB 6310 : 

GOTO 6140 :REM WISSEL 
6200 IF X > R THEN T = T + 1 : 

ST(T,0)= X: ST(T,1) = R 
6210 R = Y 

6220 IF L < R THEN 6120 
6230 IF T > 0 THEN 6100 
6240 REM KLAAR MET SORT 
6260 RETURN 
6300 REM WISSEL hele 
array-dimensie 
6310 FOR II = 0 TO 5 
6315 TX$ = A$(X,II) 

6320 A$(X,II) = A$(Y,II) 

6330 A$(Y,II) = TX$ 

6340 NEXT II 
6350 X = X + 1 
6360 Y = Y -1 
6370 RETURN 

6999 REM ZOEKEN in bestand 

7000 GOSUB 500 : REM kopprint 
7010 PRINT:PRINT"Geef 

sleutelveld :" 

7020 FOR II = 0 TO 5 
7030 PRINT 11+1 ;"-";VN$(ll) 

7040 EXT II 

7050 PRINT : PRINT "Maak een 
keuze M ' 

7060 GOSUB’800 : REM lees toets 
7070 KK= VAL(T$) 

7080 IF KK<1 OR KK > 7 THEN 
7050 

7090 IF KK = 7 THEN 

RETURN:REM menu 
7100 VL=KK-1 : REM veldsoort 
7110 VG=0 

7120 GOSUB 500 : REM kopprint 
7130 PRINT:PRINT:PRINT 
7140 PRINT "zoeken op "; 

VN$(VL);" :"; 

7150 INPUT Z$ 

7160 FOR I = 1 TO TT : REM loop 

allo KOOArHc 

7170 IF LEFT$(A$(I,VL),LEN(Z$)) = 
Z$ THEN GOSUB 7210:IF 
SU=99 THEN 1 = TT 
7180 NEXT I 

7190 IF VG = 0 THEN 7380 
7200 RETURN 

7210 REM record gevonden - print 
7220 GOSUB 500 
7230 VG =1 

7240 PRINT "Record nummer: ";l 
7250 FOR II = 0 TO 5 


59 


Commodore Info 8/87 






Alweer de derde editie sinds de vernieuwing van deze rubriek, en de laatste voor wat 
betreft 1987. Het afgelopen jaar was een goed jaar voor wat betreft de Basic Micro’s: 
veel inzendingen, vaak van hoge kwalitieit. Het valt te hopen dat dit zo blijft, en dat 
hangt van jullie goede voornemens af, dus... 


Basic Micro ’s 


H et is opvallend hoe hoog het percentage grafische Micro’s is, dat op mijn bureautje 
belandt. Prachtig natuurlijk, maar je zou haast gaan denken dat de leuke reken¬ 
programmaatjes uitgestorven zijn. En waar blijven de flitsendsnelle, superkorte sorteer- 
routinetjes, en de jukeboxprogramma’s die een stukje tophit uit mijn computer toveren? 





Als voorbeeld volgt hier een programmaatje van mijn 
eigen hand dat een benadering van Pi oplevert. 

10 A=0:FORT=lT0100000STEP4:A=A+4/T-4/(T+ 
2):NEXT:PRINTA 

Helaas, helaas! Drie fouten slopen de vorige keer in 
enkele Micro’s, en het was allemaal mijn eigen schuld. Ik 
wist niet dat overtypen zo moeilijk was. Daarom hier na¬ 
tuurlijk de verbetering van de fouten. 

In het programma Cirkelstraal, p wordt n: 

10 PRINTCHR$(147):COLOR4,1:COLORO,1:GRAP 
HIC1,1: COLOR1, 5 : FORA=0TO2*JtSTEP . 03 

En in het programma Lichtkrant zaten fouten in de volgen¬ 
de twee regels, die nu goed zouden moeten zijn: 

20 IFQ<>7111THENPRINT"FOUT IN DATA":END 
80 READK(l),K(2),K(3):ON-(K(1)=-l)GOTO50 
:RESTORE:FORG=0TO4 6:READA:NEXT:GOTO80 

En dan nu over naar de nieuwe programma’s. 


Vervaag-effect 

Michel Fidder stuurde een vel vol Micro’s in, waarvan ik 
er een uitgekozen heb. Steeds komt een stukje tekst, via 
grijs, in wit in het beeld om even later weer te vervagen. 

10 FOKE53280,0:POKE53281,0:F0RJ=1T08:REA 
DA$(J),C(J):NEXT 

20 FORJ=lT08:PRINTCHR$(147):PRINT:PRINT: 
PRINT:PRINT:PRINT:PRINT:F0RG=1T08 
30 PRINT,CHR$(C(G))A$(J)CHR$(145):GOSUB4 
0:NEXTG,J:GOTO20:DATA" THIS PROGRAM" 


40 FORI=lTO50-(G=4)*500:NEXT:RETURN:DATA 
151," IS MADE BY",152 
50 DATA"THE ELECTRONIC WIZARD",155," 
INTRO",5," WRITTEN IN 1987",155 
60 DATA" BY MR. PORSCHE",152," FO 

R" ,151," COMMODORE INFO",144 

Zoals je ziet, komen er veel CHR$-codes in voor. Die heb 
ik er zelf ingezet, omdat ik hier nou eenmaal geen cursor- 
en kleuren- tekens kan plaatsen. Ik zou het op prijs stel¬ 
len als dit ook gedaan werd in de ingezonden program¬ 
ma’s. Dat heb ik nog liever dan mededelingen als 
(DOWN) of (GROEN). 


Flitsbalk 

Van M. van Akkeren uit Zoeterwoude ontving ik een kort 
programma dat een snel schuivende lichtbalk produceert. 
Hernummeren vanaf 10, 100 of 1000 verandert de snel¬ 
heid iets. 

1 A=1 :B=0:C=53280:D=C+1 

2 POKEC,A:POKEC,B:POKED,A:POKED,B:GOTQ2 


Scrollen 

Van een onbekend persoon - ik heb waarschijnlijk de en¬ 
velop te vroeg weggegooid - komt nu een Micro die de 
smooth-scroll- mogelijkheden van de C-64 demonstreert. 
Er zit wel Simon’s Basic in, maar je kunt ook zelf het beeld 
vol POKEn met waarde 80. 

10 PRINTCHR$(147):FCHR0,0,40,25,80 

20 FORA=7TOOSTEP-1:POKE53270,A:NEXT:GOTO 

20 


60 
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Tekenen 

Van Obbe Vermeij uit Capelle aan de IJssel volgt weer 
een programma. Het maakt met Simon’s Basic een teke¬ 
ning met behulp van een bepaalde rekenmethode. 

10 HIRESl,0:MULTI11,12,15:COLOURO,1:A=-8 
:B=-10 

20 N=3:X=A:Y=B 

30 XX=X*X:YY=Y*Y:X=XX-YY+1:Y=2*Y+1:IFXX+ 
YY>600THEN50 

40 N=N-1:ON(N=0)+2GOTO60,30 
50 PLOTA*10+80,B*10+100,4-N 
60 B=B+.1:ON-(B<9)GOTO20:B=-10:A=A+.1 
70 ON(A=8)+2GOTO70,20 

Amiga-Basic 

Eindelijk eens een paar Micro’s voor de Amiga! 

De eerste komt van Dave Engbers uit Rotterdam. Echt 
"micro" is hij niet, maar we plaatsen hem wel. Hij staat hier 
afgedrukt met 40 tekens per regel, maar dat heeft verder 
niets te betekenen. 

SCREEN 1,340,240,5,1:WINDOW 1,"Punten",( 
0,0)- (160,100),0,1 

WINDOW 2,"Cirkels", (160,100)- (320,100),0 

,1 

WINDOW 3,"Lijnen", (0,100)-(160,200),0,1 
WINDOW 4,"Dozen", (160,100)-(320,200),0,1 

opnieuw: 

WINDOW OUTPUT 1:GOSUB kleur:GOSUB random 
PSET (x,y),kleur 

WINDOW OUTPUT 2:GOSUB kleur:GOSUB random 
CIRCLE (x,y),r,kleur 

WINDOW OUTPUT 3:GOSUB kleur:GOSUB random 
LINE -(x,y),kleur 

WINDOW OUTPUT 4:GOSUB kleur:GOSUB random 
LINE (x,y)-(XI,Yl),kleur,bf 
GOTO opnieuw 

kleur: 

kleur=31*RND:RETURN 
random: 

x=INT(160*RND):y=INT(100*RND) 

xl=INT(160*RND):yl=INT(100*RND):r=50*RND 

RETURN 

De tweede heet Space Scroll en is ingezonden doorTony 
Smits uit Berkel-Enschot. 

SCREEN 1,640,200,4,2 

WINDOW 1,(0,0)-(631,186),0,1 

PALETTE 0,0,0,0 
PALETTE 1,0,0,0 


PALETTE 2, .1, .1, .1 
PALETTE 3,1,1,1 

main: 

IF b=0 THEN a=a+.1:IF a>l THEN b=l 
IF b=l THEN a=a-.1:IF a<.4 THEN b=0 
x=(RND*631) 

PALETTE 3,a,a,a 
PSET (x,0),3 

SCROLL (0,0)- (631,186),0,1 
GOTO main 


C-128 

Bernard Hudepohl uit Lelystad stuurde een stuk of 10 
Micro’s in voor de C-128, maar er zaten er een paar dub¬ 
bel bij. Hier volgen er enkele. Probeer ze ook eens als je 
een C-16 of Plus/4 hebt, misschien doen ze het daar ook 
wel op. 

10 COLORO,1:COLOR4,3:COLOR1,6:COLOR5,7:G 
RAPHIC1,1:FORI=30TO15STEP-5 
20 CIRCLE1,159,100,I:NEXT:DRAW1,0,199T03 
20,0:DRAW1,0,0TO320,199 

30 PAINT1,150,10,0:PAINT1,145,100:PAINT1 
,150,150,0:PAINT1,165,100 
40 COLOR1,7:PAINT1,10,50,0:PAINT1,300,50 
,0:PAINT1,165,100 

50 PAINT1,160,105,0:PAINT1,160, 95, 0 

10 COLORO,1:COLOR1,3:COLOR4,1:GRAPHIC1,1 
:W=8:X1=0:Y1=0 

20 W=W+2:BOX1,XI,Yl,1,1,W,0:Xl=Xl+3:Y1=Y 
1+3:IFW<300THEN20 


Functie 

Wilfred van Dijk uit Zeist stuurde een Micro in die met 
Simon’s Basic de grafiek van een zelf te bepalen functie 
tekent. Je moet achter de "30 DEF FN A(X)=" een functie 
intikken en dan twee keer op RETURN drukken. 

10 COLOURl2,12:PRINTCHR$(147)CHR$(144):P 
RINT:PRINT:PRINT"30 DEF FN A(X)=" 

20 PRINT"RUN110"CHR$(19):END 

30 REM HIER KOMT DE FUNCTIE 

40 HIRES0,12:LINE0,100,319,100,1:LINE160 

,0,160,199,1:FORI=0TO319STEP10 

50 LINEI,98,1,102,1:NEXT:FORI=0TO199STEP 

10:LINE158,I,162,I,1:NEXT 

60 FORI=-16T016STEP.1:Y=FNA(I):IFY>10ORY 

C-10THEN8Q 

70 PLOTI*10+160,100-Y*10,1 
80 NEXT:WAIT198,255:SYS2048 

Peter Broekhuizen 
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Basis Basic 
-vervolg listing 

7260 PRINT VN$(II)" : ”A$(I,II) 

7270 NEXT II : PRINT 
7280 ON SU+1 GOTO 7300, 7340, 
7340 : REM SU=SOORT 
MODULE 

7290 REM SU=0 normaal zoeken 
7300 PRINT " Typ toets voor 
vervolg" 

7310 GOSUB800 
7320 GOTO 7370 

7330 REM SU=1 Verwijderen SU=2 
Muteren 

7340 PRINT "Dit record bewerken 

(J/N)" 

7350 GOSUB 850 
7360 IF T$="J" OR T$="j" THEN 
cij-99 

7370 RETURN 

7380 REM record niet aanwezig 
7390 PRINT Z$ " niet gevonden" 
7400 PRINT "Typ toets voor 
vervolg" 

7410 GOSUB 800 
7420 RETURN 
8000 REM INLEZEN 

8005 TT=-1 : REM Totaal aantal 
records -1 

8006 REM DSK = Disk/tape vlag 

8007 REM JJ Lusteller 


8008 REM Filenaam "ADRES" 

8009 REM ST = status van ’t file : 

8010 GOSUB 500: REM KOPPRINT 
8020 IF DSK = 1 THEN OPEN 

2,8,2,"ADRES,SEQ,READ" 
8030 IF DSK = 0 THEN OPEN 
2,1,0,"ADRES" 

8099 REM GOTO LOOP MET 
RECORDS EN VELDEN 

8100 TT=TT+1 :REM RECORD 
TELLER 

8110 FOR JJ = 0 TO 5 
8120 INPUT#2, A$(TT,JJ) :REM 
LEES RECORD 
8130 NEXT JJ 

8140 IF ST = 0 THEN 8100:REM 
LEES volgende 

8199 REM AFHANDELEN 
SCHRIJVEN 

8200 CLOSE 2 : REM SLUITEN 
KANAAL 

8210 PRINT "INLEZEN ";TT; 

"RECORDS * Raak toets *" 
8220 GOSUB 800 : REM Haal toets 
8230 RETURN 
9000 REM Wegschrijven 

9005 REM TT= Totaal aantal 
records 

9006 REM DSK = Disk/tape vlag 

9007 REM II,JJ Lustellers 

9008 REM Filenaam "ADRES" 

9009 : 


9010 GOSUB 500: REM KOPPRINT 
9020 IF DSK = 1 THEN OPEN 

2,8,2,"@ADRES,SEQ,WRITE" 
9030 IF DSK = 0 THEN OPEN 
2,1,1, "ADRES" 

9099 REM Loop met records en 
velden 

9100 FOR 11 = 1 TO TT 
9110 FOR JJ = 0 TO 5 

9120 PRINT#2, A$(II,JJ) :REM 
SCHRIJF RECORD 
9130 NEXT JJ , II 

9199 REM Afhandelen schrijven 

9200 CLOSE 2 : REM Sluiten 
kanaal 

9210 PRINT "WEGSCHRIJVEN 
KLAAR * Raak toets *" 

9220 GOSUB 800 : REM Haal toets 
9230 RETURN 

9500 REM afsluiten programma 
9510 GOSUB 500 : REM printkop 
9520 PRINT: PRINT : PRINT: PRINT 
9530 PRINT "Stoppen zeker (J/N) 

? 

9540 GOSUB 850 : REM haal toets 
in t$ 

9550 IF T$ = "n" OR T$= "N" THEN 
1000 

9560 REM antwoord = ja 
9999 END 



C0URB0IS SOFTWARE 

POSTBANK > H3.Oa.695 


08897-725H6 

Alle prijzen inclusief BTW en 
exclusief verzendkosten. 


AMIGA 


3.5’’ drive, volledig compatible 475.00 

5.25" drive, 40/80 tracks omschakelbaar 600.00 

* 5.25" drive inclusief bootschakelaar 

Sound-Digitizer voor de 500/1000/2000 149.00 

* Geluiden opslaan in IFF-format 

* Disk met besturingssoftware en demo's 

* Geluiden te gebruiken in de meeste programma's 


Meer dan 1000 software titels voor de volgende computers 

* Commodore 64 * Commodore VIC 20 * MSX 

* Commodore 128 * Commodore Plus 4 * Araiga 

* Commodore C16 * Atari Huiscomputers 


Bootschakelaar 

* Eenvoudig zonder solderen te monteren 

* Maakt uw externe drive DF0: 

* Zeer handig voor 5.25" diskdrives 


25.00 


Een greep uit ons programma : 

* 65 cassettes met elk 12 spelen voor de C 64 a 

* 22 cassettes met elk 8 spelen voor MSX a 

* 15 cassettes met elk 8 spelen voor Atari a 

* Tekstverwerkers voor 64-128-Atari-C16 vanaf 

* Printertekeningen voor 64-C16-Atari-MSX a 

* Onderwijs programma's voor 64-Atari-C16 a 

* Bestandsprogramma's op cassette of diskette vanaf 

* Avonturen voor 64-Plus4-MSX a 

* Basic- en machinetaal cursussen a 

Diskettes voor alle computers : 


Nederlandse software 

* Prijsschieten 

* Boulder Dash 

* Scrabble 

* Programma Bestand 

* Platen/Video Bestand 

* Cijfers S letters 

* Electro 


per pakket 15.00 
Printer Tekeningen 
Viditel Simulatie 
Galaxians 
Space Invaders 
Kaartspelen 
Mens Erger Je Niet 
Mini Loco 


5.25' 

5.25' 

5.25' 

3.5" 

3.5" 


10.00 

10.00 

10.00 

10.00 

10.00 

10.00 

10.00 

10.00 

10.00 


10.00 


Wit-Merk SS DD 
Wit-Merk DS DD per doos 15.00 - Per 2 dozen 25.00 


Nashua DS DD 

Wit-Merk DS DD (voor Amiga) 
Nashua DS DD (voor Amiga) 


20.00 

40.00 

45.00 


Diversen Amiga produkten 

* 2MB geheugenuitbreiding (Amiga 1000) 1099.00 

* 512K uitbreiding Amiga 1000 (inbouw) 400.00 

* Muismat, uw muis rolt veel beter 19.50 

* Stofhoes voor de Amiga 500 15.00 


Prijzen per 10 diskettes, voor grotere aantalen even bellen 

Behalve dit kunnen wij ook andere dingen leveren zoals : 

* Diskette Bakken * Stofhoezen * Joysticks 

* Diverse Cartridges * Etiketten * Boeken 

* Tijdschriften * Printjes * Public Domain 

GRATIS CATALOGUS BEL 08897-72546 
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Rob Goudriaan bespreekt weer enkeie klassiekers onder de computerspelletjes voor 
de Commodore 64. Over trollen en spinnen, vlooien en diamanten. Sommige van deze 
spelletjes zijn in de winkel te koop, voor andere moet u op speurtocht. 


OUD VAN GOUDriaan 


Trolls and Tribulations. 

Door Creatieve Software is er een 
spel op de markt gebracht dat de 
naam van de bedenkers eer aandoet. 
De opzet van dit spel is om alle schat¬ 
ten te verzamelen.Deze zijn verstopt 
in een uitgebreid doolhof. Iedere keer 
dat een level is doorlopen komen er 
nieuwe uitgebreidere gangenstelsels 
naar voren. Deze schatten liggen na¬ 
tuurlijk niet zo maar voor het oprapen. 
Er moet wat, er moet zelfs heel veel 
voor worden gedaan. Bij het begin van 
het spel heeft u de keuze uit drie deu¬ 
ren. Het nummer staat voor de moei¬ 
lijkheidsgraad, waarbij nummer een 
het makkelijkste is en nummer drie het 
moeilijkste. Heeft u een -voorzichtige- 
keuze gemaakt dan gaat de grote 
deur open. Een tekst op het scherm 
vertelt u dat u op zoek moet gaan naar 
een deur, ja alweer. Het vinden van de 
deur levert niet de grootste problemen 
op, maar er moet nog wel wat worden 
gedaan voordat deze deur opengaat. 
Er lopen een soort waakhonden rond 
die u het een en ander proberen te 
beletten. Ze zijn uit te schakelen door 
op ze te schieten. Dit gebeurt door de 
joystick naar voren te duwen. Ze ver¬ 
anderen dan in een ei. Door dit ei aan 
te raken zijn ze uit te schakelen. Er 
zijn er in het totaal acht. Zijn deze al¬ 
lemaal vernietigd dan gaat de deur 
open als je er tegen aan duwt. Bij het 
starten van dit spel heb je de beschik¬ 
king over zes levens en acht schoten. 
Is de munutie op dan is er een nieuwe 
voorraad te verkrijgen door naar de 
bewegende stukjes vloer te gaan. De 
volgende kamer bestaat uit een grote 
ruimte met diverse etages. Ook hier 
staan de schatten op alle mogelijke 
plaatsen. Over de ijzingwekkende 
dieptes kun je heen springen. Dit ge¬ 
beurt door op de startknop te drukken. 
Hier in deze ruimte zijn behalve de 
schatten ook nog een aantal sleutels 
verstopt. Deze zijn nodig om de deu¬ 
ren te kunnen open maken. Om de 
hoogste etages te bereiken is het 
noodzakelijk gebruik te maken van de 
trampolines. Deze staan op de diver¬ 
se plaatsen opgesteld. Mensen die 
bang zijn voor spinnen kunnen hun 
hart ophalen, ze zijn er in grote aantal¬ 
len en proberen je het leven zuur te 
maken. Een aanraking is dodelijk. Het 


beste is om over deze enge beesten 
heen te springen. Ronddwalende 
doodshoofden hebben hetzelfde ef¬ 
fect, men is er dus een leven mee 
kwijt. Om er overheen te springen 
moetje wel even opletten. 


AND 
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Deze doodshoofden zitten niet stil, 
wat het springen een stuk moeilijker 
maakt. Soms liggen de sleutels, maar 
ook de schatten op bijna onbereikbare 
plaatsen en moeten er verschillende 
halsbrekende kapriolen worden uitge¬ 
haald om ze te bereiken. Om te keren 
moet er soms tegen de muren worden 
gesprongen. Heel verrassend zijn de 
valluiken. Deze plaatsen zijn niet te 
herkennen en alleen door veel te 
spelen zijn deze plaatsen te bepalen. 
Trolls is een spel voor mensen die van 
verrassingen houden. 


Quo Vadis 

Wie dol is op de beroemde doolhof 
spelletjes kan zijn (of haar) hart op¬ 
halen met dit uitgebreide spel. Vol¬ 
gens zeggen, ik heb het niet na ge¬ 
meten, bestaat dit spel uit maar liefst 
1012 schermen. 46 beelden diep en 
22 breed. Om het spel goed te spelen 
is het dan ook geen overbodige luxe 
een plattegrond te tekenen. Het is een 


van de eerdere spelen die volledig 
scrollende beelden gebruiken. De 
achtergrond loopt dus gewoon met je 
mee. Quo Vadis is een avontuur dat 
zich afspeelt in ondergrondse gewel¬ 
ven. Tijdens het spelen ontdek je 
steeds meer mogelijkheden en onmo¬ 
gelijkheden van dit spel. Je hebt in het 
begin je handen vol aan het verken¬ 
nen van het grotstelsel en het ver¬ 
nietigen van allerlei monsters die je 
onderweg tegenkomt. Naarmate het 
spel vordert, zie je steeds meer bran¬ 
dende kaarsen, fakkels en grote schil¬ 
derijen die aan de muur hangen. Er 
zijn vreemde rotswanden, onbegrijpe¬ 
lijke pilaren, enge donkere gangen en 
diepe ondoorgrondelijke lavaputten. 
Uitgehakte trappen leiden naar nieu¬ 
we, onbekende ruimtes. Overal kan 
het gevaar schuilen. Door al dit 
schoons moet je niet vergeten wat de 
opdracht van dit spel is, Je bent hier 
tenslotte niet voor je lol. Je trotseert al 
deze gevaren om een scepter te vin¬ 
den. Hierbij loop je soms over smalle 
rotsrichels, spring je over onmetelijke 
dieptes en klim je in de touwen. In zo’n 
ondergronds grottenstelsel huist na¬ 
tuurlijk allerlei ongedierte. Ook hier is 
in ruime mate in voorzien. Allerlei 
griezels doen een poging om je te ver¬ 
nietigen zodra je je neus maar laat 
zien. Schieten is meestal de enige op¬ 
lossing. Alleen moet je niet te vaak 
missen want de voorraad munutie die 
je bij je hebt is erg beperkt. Gelukkig 
hebben vorige onderzoekers, die de 
expeditie niet hebben overleefd, hier 
en daar bij de schatten wat munutie 
achtergelaten. Bij elke schat die je 
vindt wordt de munutievoorraad weer 
wat aangevuld. De raadsels die je 
onderweg tegen kunt komen kunnen 
je helpen met het vinden van de scep¬ 
ter. Het is dus zaak hier wel de nodige 
aandacht aan te schenken. Juich bij 
het vinden van dit kleinood niet te 
vroeg, want er moet nu nog een hele 
terugreis worden afgelegd. Hierbij niet 
verdwalen want dan is alles voor niets 
geweest.Het is een -bijna- onmoge¬ 
lijke opdracht om dit spel tot een goed 
einde te brengen. Mij is het ieder geval 
nog niet gelukt. 
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Booga-Boo 

Booga Boo is een moderne computer 
versie van het aloude vlooienspel. Het 
is al een aantal jaren op de markt 
maar heeft eigenlijk nooit die bekend¬ 
heid gekregen die het verdient. Wie 
heeft als kind niet het vlooienspel ge¬ 
speeld, op een regenachtige zondag¬ 
middag in de warme achter kamer? Bij 
dit spel hoefje niet bang te zijn dat de 
vlooien alle kanten op springen. Je 
hebt hier maar te maken met een vlo, 
en dat ben je zelf. Onderweg krijg je te 
maken met allerlei vreemde griezels. 
Een vliegende draak of planten eten¬ 
de vlooien, niets is hier te dol. Je hebt 
een belangrijke opdracht. Probeer de 
grot uit te komen. Net als met het ou¬ 
derwetse vlooienspel kost het de no¬ 
dige moeite de vlo de juiste kant op te 
laten springen. Dit vereist de nodige 
oefening. Eerst moet met de joystick 
de juiste richting worden aangegeven 
en dan moet de kracht van de sprong 
nog worden bepaald. Hoe langer je de 
joystick in een bepaalde richting 
houdt, hoe hoger de sprong zal zijn. 
Zodra de joystick los wordt gelaten 
springt de vlo weg. De omgeving is al¬ 
leen te bekijken door de vuurknop in 
te drukken en de joystick in die richt¬ 
ing te duwen waarnaar men wil kij¬ 
ken. Dit is zeker niet overbodig bij het 
bepalen hoe hoog een sprong moet 
worden. Alle gangen bestaan ook uit 
richels en er moet dus heel wat ge¬ 
sprongen worden om de uitgang te 
bereiken. Dit valt niet mee. Rustig 
even gaan zitten kijken is er niet bij, 
want de draak ligt op de loer. Bij het 
schuilen hiervoor is het verstandig 
eerst even goed te kijken of er op die 
plaats geen vlo etende planten staan. 
Men is gewaarschuwd. Dit spel is 
eigenlijk alleen geschikt voor mensen 
met een aangeboren talent voor sprin¬ 
gen of voor hen die tegen een stootje 
kunnen, want het vruchteloos heen en 
weer springen van mij lijkt nergens op. 
Ik heb het spel al verschillende malen 
in de kast terug gegooid maar waarom 
ik het steeds toch weer ga spelen? 
Het zal wel een van de onopgeloste 
computerraadsels zijn.... 


Jumpman 

Jumpman is een spel dat voor velen 
geen onbekende is. Het hoort zeker in 
de rubriek oud van goud thuis. Het 
spel bestaat uit een groot aantal levels 
variërend van makkelijk tot zeer moei¬ 
lijk. Vele verrassingen staan je te 
wachten voordat het spel tot een goed 
einde is gebracht. De opzet van het 
spel is dat de hier en daar verspreide 
diamanten worden verzameld. Dat 


gaat natuurlijk niet zomaar. Er staan 
onder weg de meest moeilijke hinder¬ 
nissen te wachten. In het begin lijkt 
alles heel makkelijk, maar gaande 
weg worden de moeilijkheden groter. 
Zo krijg je in het begin van het spel 
slechts te maken met een kogel in het 
veld maar later worden dat er meer. Je 
kunt in het begin zelf de snelheid be¬ 
palen, maar zelf vind ik langzaam eer¬ 
der een nadeel dan een voordeel. Wat 
de beste snelheid is kun je alleen 
maar bepalen door het spel veel te 
spelen. Bij het spelen is een bepaalde 
strategie belangrijk, want soms ver¬ 
dwijnen er stukjes vloer gewoon onder 
je voeten. Gelukkig kan ons mannetje 
springen. Dat is wel noodzakelijk om 
hem over de gaten, vlammen, kogels 
en wat voor ellende ook meer heen te 
laten springen. Op een bepaald punt 
staan er robots op wacht bij de dia¬ 
manten. Niet altijd reageert de robot 
bij de diamant die je pakt. Hier kun je 
lelijk in de moeilijkheden komen want 
z’n robot zet natuurlijk geen stap opzij. 
Gelukkig volgen ze altijd het zelfde 
patroon zodat je bij het volgende spel 
weet hoe je deze moeilijkheden kunt- 
voorkomen en de diamanten moet 
pakken. Een van de moeilijke levels is 
het veld met de bommen. Ook hier 
verdwijnen er stukken vloer. Let er 
dan op dat je met het touw alleen naar 
beneden kunt gaan en niet meer te¬ 
rug. Er zijn velden bij waar je zelf je 
trappetjes moet bouwen om verder te 
kunnen gaan. Dit kan alleen gebeuren 
door de diamanten te gebruiken. Er is 
een grappig veld waar het programma 
de naam eer aandoet. Raak je zo’n 
glinsterend blokje aan dan "jump" je 
een stukje en niet altijd in een gunsti¬ 
ge richting. Als je dan ook nog weet 
dat er velden zijn met vampiers die het 
natuurlijk op jou voorzien hebben, dan 
kun je wel nagaan dat je dit spel niet 
in een dag uit kunt spelen. Natuurlijk 
zijn er ook nog verrassingen die ik hier 
niet verteld heb. Ik hoop datje nieuws¬ 
gierig genoeg bent geworden om dit 
spel te gaan spelen. Misschien wordt 
het wel een hernieuwde kennismak¬ 
ing met het gouwe ouwe JUMPMAN 
spel. 


Boulderdash 

Als je nu in de rekken software in de 
winkels kijkt ziet je overal het spel 
Boulderdash liggen. Toch is dit een 
spel dat duidelijk in deze rubriek thuis 
hoort. We zouden het haast vergeten. 
Reeds enkele jaren terug kwam dit 
spel voor het eerst op de markt. De 
grote held in dit spel is Rockford. Wat 
is er aan de hand? Hij heeft een gigan¬ 
tisch grottenstelsel ontdekt. Al snuf¬ 


felend en zoekend ontdekt hij dat er 
hier en daar verspreid diamanten lig¬ 
gen. De opzet is natuurlijk de diaman¬ 
ten mee te nemen, maar dit is makke¬ 
lijker gezegd dan gedaan. Het wordt 
hem niet eenvoudig gemaakt. Allerlei 
ongedierte en vreemde hindernissen 
staan hem in de weg om binnen de 
kortste keren miljonair te worden. 



Ook gebeuren er in deze grotten 
vreemde dingen. Hindernissen liggen 
er in de weg, er zijn magische vlin¬ 
ders en vogels of er verschijnt een 
ondoordringbare substantie. En na¬ 
tuurlijk zijn er overal rotsblokken. Zij 
kunnen opzij geschoven worden of 
naar beneden gewerkt. Bij de start 
van het spel heeft men de keuze uit 
vier verschillende grotten en uit drie 
verschillende levels. Nadat je een 
keuze gemaakt hebt, wordt bekend 
gemaakt hoeveel diamanten er per 
grot verzameld moeten worden, de 
punten die je er voor krijgt en hoeveel 
tijd er beschikbaar is. Een regelmatig 
terugkerende toon vertelt wanneer de 
tijd verstreken is. Zodra er genoeg 
diamanten zijn verzameld verschijnt 
er een lichtflits en klinkt er een knal. Je 
kunt dan via het knipperende vierkan¬ 
tje naar de volgende grot. Soms is het 
even zoeken naar de uitgang want de¬ 
ze bevindt zich niet altijd op dezelfde 
plaats. Het ergste wat je kan over¬ 
komen is het bedolven raken onder de 
rotsblokken. Dit kost altijd een leven. 
In elke grot zijn de hindernissen op 
een andere manier opgebouwd, soms 
is het dus even zoeken naar de juiste 
oplossing. Raak je ingesloten dan is 
de enige oplossing om zelfmoord (niet 
letterlijk) te plegen, waarna je het spel 
kunt vervolgen. Wacht niet te lang met 
het oplossen van een probleem want 
Rockford is een ongeduldig baasje. 
Hij begint dan met zijn voeten te stam¬ 
pen van ongeduld. Al met al een leuk 
en aantrekkelijk spel. Veel succes in 
de grotten. 
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Dat een bedrijf uit de professionele softwaresector zich ook met de Commodore C- 
64/128 en Amiga gaat bezig houden komt in Nederland niet voor. Het Amsterdamse 
Softwarehuis Datahome mikt naast de grote zakelijke gebruiker ook op de serieuze 
Commodore hobbyist of kleine zelfstandige. Daartoe importeert en ontwerpt Dataho¬ 
me kwaliteitssoftware voor de C-64, C-128 en Amiga. 


Datahome 

Serieuze software voor de Commodore 

D atahome startte in 1985 met een ongebruikelijke entree bestaande uit 
een reserveringssysteem voor middenklasse hotels en een geauto¬ 
matiseerd beveiligingssysteem voor het weren van voetbalvandalen. Met 
name dit Euro Ticket Sales Systeem staat flink in de belangstelling vanwege 
de mogelijkheden om het groeiende "supporters"-vandalisme in te dam¬ 
men. 


Aanvankelijk hield Datahome zich 
bezig met het ontwikkelen van op 
maat gesneden software voor kleine 
bedrijven en particulieren in de Be¬ 
nelux. Het softwarehuis groeide snel 
en besloot de verkoophorizon te 
verbreden tot de import (U.S.A.) en 
ontwikkeling van serieuze software 
voor de C-64, C-128, Amiga en Atari. 
Voor de software werd een uitgebreid 
service-pakket ontwikkeld: 

° Ondersteuning en begeleiding in 
het gebruik van zowel Nederlands- 
als Engelstalige software. 

0 Vijf jaar garantie op alle zelf ontwik¬ 
kelde- en geïmporteerde software 
0 Gratis demonstraties op afspraak 
° Gratis adviezen en vormgeving aan 
kleine bedrijven die hun zakelijke 
administratie willen automatiseren 
° Een 24-uurs service, ook op zater¬ 
dag en zondag 

Inmiddels heeft Datahome voor de 
Commodore C-64 en C-128 een uit¬ 
gebreid assortiment opgebouwd. Het 
aanbod varieert van facturerings-, 
financiële- en patiëntenadministratie-, 
boekhoud-, spreadsheet-, aandelen-, 
databases- tot communicatie- softwa¬ 
re. Wij lichtten daar een aantal inte¬ 
ressante pakketten uit. 

PowerPlan-64 

De beroemde spreadsheet Power- 
Plan is ook voor de Commodore 64 
leverbaar. In de C-64-versie biedt dit 
electronische grootboek de gebruiker 
een krachtige combinatie van spread¬ 
sheet met de grafische datadisplay 
PowerGraph. Er zijn maximaal 255 


rijen bij 63 kolommen met in totaal 
16.065 individueel beschermde cellen 
beschikbaar. Natuurlijk kent Power¬ 
Plan-64 alle belangrijke wiskundige 
functies, een met de hand controleer¬ 
bare reken-modus en ingebouwde 
diskcommando’s. 

Het pakket is geheel menugestuurd 
en met een enkele toetsaanslag kun¬ 
nen HELP-schermen worden opge¬ 
roepen. Verder biedt PowerPlan- 64: 

° Een ingebouwd notepad voor me¬ 
mo’s 

° Een flexibele online calculator voor 
het maken van snelle tussentijdse 
berekeningen 
0 Cut, Copy en Paste 
0 Meervoudige vensters voor een 
snelle data-analyse 
° De grafieken pie, bar, 3D-bar, line 
en area charts 



° Ondersteuning van Commodore 
1525, 1526, MPS 801/802-, Epson- 
MX/FX-, Star- en Panasonic-prin- 
ters 

° Een 200-pagina’s tellend handboek 


° PowerPlan-64 draait op een C-64 
met 1541- of andere compatibele 
diskdrive en kost ƒ 219,50. 


Chartpak 

Voor het maken van (semi)-professi- 
onele charts en grafieken op de C-128 
en C-64 is er het Abacus-pakket 
Chartpak. Dit door Datahome geïm¬ 
porteerde charting & graphing-pro- 
gramma tekent 8 verschillende pie-, 
line-, bar- en scatter-grafieken vanuit 
Busicalc 1, Multiplan en Calc Result. 
De gebruiker kan de kleurstelling, 
schaal, labels, assen, labels en fills 
naar wens bijstellen. 

Naast de puur grafische functies zijn 
er ook statistische routines inge¬ 
bouwd. O.a. de gemiddelde waarde, 
de standaarddeviatie,, regressie en 
het afronden van exponenten. 
Chartpak draait op elke C-64 en C- 
128 met diskdrive. Een 80- koloms is 
uitsluitend mogelijk op een C-128 met 
een daartoe geschikte monitor. Bo¬ 
vendien biedt de C-128-versie (ƒ 
289,50) een drie maal zo groot oplos¬ 
send vermogen als de C-64-versie 
(ƒ 279,50). 

Chartplot-64 

Nauw verwant met het zojuist bespro¬ 
ken Chartpack is Chartplot- 64. Dit 
pakket biedt dezelfde mogelijkheden, 
maar is op de plotter gericht. Er zijn 
twee versies: 

0 Chartplot-64 voor HP-, Houston In¬ 
struments-, Roland DG- of Strobe- 
plotter voor ƒ 489,- 
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0 Chartplot-1520 voor de eigen Com¬ 
modore 1520-plotter met een prijs¬ 
kaartje van ƒ 250,-. 

Personal Portfolio Manager 

PPM houdt de aandelenfortefeuille 
van de C-64/C-128-bezitter bij. Of dit 
pakket ook een beurscrash mag voor¬ 
komen kunnen wij niet beoordelen. 
Wel biedt PPM een goede methode 
om het gehele aandelengebeuren o- 
verzichtelijk te houden en er ook nog 
wat van te leren. 

Personal Portfolio Manager beschikt 
over de volgende specificaties: 

° Management van aandelen, obliga¬ 
ties, fondsen, dividenden en rente. 

0 80-koloms breed in de 128 versie. 

0 1000 open transacties op 1 diskette 
(bij een PC 10.000). 

° Display van de recentste noteringen 
en ander over de gebruikelijke com¬ 
municatiekanalen beschikbaar 
beursnieuws via het TRANSFER- 
programma. 

° Snelle analyse en het maken van 
overzichtelijke rapporten (de typen 
Quotes, Unrealized Gain/Loss, Tax, 
Income, Year-To-Date Transac- 
tions, Cross Reference tussen port¬ 
folio’s). 

0 Compatibel met de gebruikelijke 
Commodore modems. 

° Werkt met Commodore 1525-, 
1526-, MPS 801-, Epson-, Star-, 
Gemini-, Oki- en andere printers. 

0 Volledig menugestuurd met context 
sensitieve HELP-functie. 

° Het aantal portfolio’s wordt slechts 
door de hardware beperkt. 

0 Export in ASCII-, 1-2-3- en DIF-for- 
mats. 

Qua hardware heeft de gebruiker 
naast de C-128 of C-64 een 1541 of 
1571 diskdrive nodig. De C-128-ver- 
sie kost ƒ 319,50, die voor de C-64 
ƒ 259,50. 

Alfa-facturering 

Voor de kleine zakenman/vrouw 
brengt Datahome het C-128 facture- 
ringspakket Alfa-facturering uit. 1000 
Relaties (debiteuren en crediteuren) 
en 500 artikelen zullen voor de 
meeste kleine zelfstandigen voldoen¬ 
de zijn. 

Het pakket bestaat uit twee delen Fac¬ 
turen en het kas-, bank- en giroboek. 
De verschillende saldi kunnen zon¬ 
dermeer naar het KBG-boek getrans¬ 
porteerd worden. Alfa-facturering 
biedt de gebruiker de volgend moge¬ 
lijkheden: 

0 Volledige menubesturing. 


I ° Invoeren opvragen en wijzigen en 
afvoeren van artikelen en relaties. 

0 Optimale crediteuren en debiteuren 
j bewaking 

I 0 Rapport optie: saldi, transactie, ar- 
| tikels, relaties, enz. 

° Standaardafdrukken van labels, 
BTW, kortingen, verzendkosten. 

0 Kredietbeperkingen 
° Diverse diskopdrachten 
Het is een leuk pakket voor wie met 
een betrekkelijk geringe investering 
zijn/haar factureringssysteem wil au¬ 
tomatiseren. Een ding moet ons ech¬ 
ter van het hart. Een programma-ver- 
nietiger als kopieerbeschermer kan 
toch eigenlijk niet. Foutjes met het per 
ongeluk intypen van ‘LOAD’ en 
‘BLOAD’ kunnen catastrofale gevol¬ 
gen hebben die niet door de garantie 
worden gedekt! 

CHOICE 

De database Choice is een volledig 
Nederlandstalige database met een 
geheugenopslag voor 750 adressen 
of andere gegevens. Sorteren kan op 
elk niveau en duurt maximaal ander¬ 
halve minuut. Er is alleen een 80-ko- 
loms C-128-versie verkrijgbaar. 
Choice biedt de volgende gebruikers 
opties: 

0 Database ontwerpen. Het zelf in¬ 
delen van de records in velden 0 
t/m 9. Het defini137ren van de re- 
cordlengte, veldlengte numeriek/al¬ 
fanumeriek. 

° Standaardbestanden. Videobanden, 
adressen, filatelie, muziekdragers, 
inboedel, bibliotheek en computer¬ 
programma’s. 

° Afdrukopties. Acceptgiro’s, facturen, 
labels, printoverzichten, etiketten en 
ledenadministratie. 

° Bestandbewerking. Sorteren, zoe¬ 
ken, wijzigen, loaden, saven, afslui¬ 
ten en vervallen. 

° Inbouw van eigen opties op ver¬ 
zoek. 

De prijs van het Choice-pakket voor 
de C-128 bedraagt ƒ 189,50. 

Bravo 

De database-pakket Bravo V-3.1 is 
een echt familie-pakket. Het program¬ 
ma is bedoeld om allerlei gezinsuit¬ 
gaven, afspraken, verjaardagen en a- 
dressen bij te kunnen houden. Maxi¬ 
maal kunnen er 500 relaties en 200 af¬ 
spraken tegelijkertijd vastgelegd wor¬ 
den. 

De gezinsboekhouding bestaat uit het 
vastieggen, bijwerken, kontroleren en 
balansen van de vaste uitgaven zoals, 


huishoudgeld, huur, aflossingen, be¬ 
lastingen, inkomsten en uitgaven. 
Hiervoor wordt een speciaal rekenin- 
: genschema ontworpen. 

Bovendien bevat dit pakket nog de 
mogelijkheid om labels en felicitaties 
; af te drukken. Het uitprinten van de 
financiële overzichten kan per dag, 
week, maand of jaar. 

Waarschijnlijk zal een van de eerste 



uitgaven die u zult registreren de prijs 
zijn van dit Bravo-pakket: ƒ 139,-. 


TekstMaster 

Wie op zoek is naar een redelijk ge¬ 
prijsde tekstverwerker voor de C-128 
is met TekstMaster goed af. Deze ge¬ 
heel Nederlandstalige (auteur Peter 
Cremer) wordprocessor beschikt 
naast een 80-koloms display over: 
°Het inladen van default-formulieren 
en -brieven. 

0 Kantlijn instellen en richten (align- 
ment). 

0 Snelzoeken met SPOTLIGHT. 

0 De tekst-opties: INSERT (tekst/re¬ 
gel), WISSEN (tekens/regels), Ta- 
bulaties, zoeken, laden, opslaan, 
belletje (waarschuwt voor einde re¬ 
gel en afbreken) en instelling van 
de achtergrondkleur. Helaas ontbre¬ 
ken, op het wissen na, de blokbe- 
werkingen. 

0 Autorecovery (automatische tekst- 
opslag als het bestand in het RAM 
te groot wordt) en auto-tabulatie. 

0 Ingebouwde calculator met dubbel 
geheugen. 

0 Directory en fast directory. 

° Menu- en functietoets gestuurd. 

0 Aansturing van 300 baud modems. 

° Automatisch afbreken. 

° Diskopties. 

° Foutsignalering met gebruik. 

° Snel scrollen. 

Tekstmaster C-128 kost ƒ 139,- en is 
tegen kopiëren beveiligd. Inlichtingen: 
Datahome, 2de Helmersstraat 5, 
1054 CA Amsterdam, tel.: 020- 
837367/85 52 04. 
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Computerspelletjes winnen nog steeds 
aan populariteit. Dat blijkt ook uit het 
spelprogramma ‘It’s all in the Game’ van 
de NCRV. Een uniek samenwerkings- 
projekt gaat er nu voor zorgen, dat de 
TV-games uit dat programma ook thuis 
kunnen worden gespeeld. 


It’s all in the 
Game 

Presentator Henk Mouwe met enkele kandidaten. 



D e NCRV, René Stokvis Produkties en Sala Communications hebben ge¬ 
meenschappelijk een uniek projekt opgezet. De computergames, die dit 
spelprogramma de revue zullen passeren, kunnen op diskette besteld wor¬ 
den, waardoor de kijkers nu ook zelf aktief met de spelletjes ‘in de slag’ kun¬ 
nen. 


It’s All in the Game is vanaf dit seizoen 
elke maand op maandagavond te zien 
na het journaal van acht uur. Presen¬ 
tator Henk Mouwe test dan de behen¬ 
digheid van een achttal kandidaten (in 
twee teams) op het gebied van com¬ 
puterspelletjes.letjesletjes De formule 
blijkt uitstekend aan te slaan getuige 
de kijkcijfers. 


Thuis spelen 

Om meer mensen de mogeljkheid te 
bieden de spelletjes te spelen, is nu 
besloten de games ook op een disket¬ 
te uit te brengen. In overleg met René 
Stokvis Produkties (de bedenkers van 
dit programma) en de NCRV zal Sala 
Communications (uitgever van diver¬ 
se computer-magazines, waaronder 
Commodore Info) de produktie en ver¬ 
koop van diskettes gaan verzorgen. 
Zo kunnen ook de thuisblijvers en de 
fervente computergame-spelers hun 
eigen kwaliteiten testen met dezelfde 
spelletjes als in de programma’s aan 
de orde zullen komen. 


Diskette 1 

Op de eerste diskette staan de vol¬ 
gende spelletjes: 

° Balletje de Luxe 
één balletje, zes dopjes, en maar 
raden... 

° Schuif Schuif 

3 logo’s, 8 dopjes. Schuiven in een 
oogwenk. 

0 Medeklinkers 

16 cotegorieën, vele honderden 
woorden, maar... géén medeklin¬ 
kers! 


Aanvragen 

Bestellen van de diskettes met daarop 
de games kan eenvoudig door ƒ 19,95 
overte maken op gironummer 158549 
t.v.n. Sala Communications te Am¬ 
sterdam. Op de overschrijving dient u 
te vermelden of u diskette 1,2, of 3 wilt 


hebben. U kunt ook een girobetaal¬ 
kaart opsturen naar Postbus 5570, 
1007 AN, Amsterdam, (ook hierop niet 
vergeten te zeggen, welke diskette u 
wilt ontvangen). 

Natuurlijk kunt u voor al deze infor¬ 
matie ook naar het programma kijken, 
dan heeft u dubbel plezier! 
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